Ho un file in excel dal quale attraverso una macro ho la necessità di aprire dei file in word e salvarli con un nome in automatico.

Per poter controllare da Excel un documento Word o controllare qualsisasi altra applicazione Office è necessario sfruttare l'integrazione delle applicazioni di Office.

Per prima cosa è necessario dire a Excel di fare riferimento alle librerie di comandi di Word attraverso il seguente menu dell'ambiente VBA:

A questo punto è necessario selezionare la riga che indica Microsoft Word (a seconda della vostra versione di Office potrebbe cambiare la versione delle librerie):

A questo punto potete controllare Word direttamente da Excel:

qui una semplice macro che crea un nuovo documento, ci scrive qualche riga di esempio e poi lo chiude con un nome specifico.

L'esempio è stato semplificato rispetto a quello presentato dal sito Exceltip.com.

Il codice è il seguente:

Sub Crea_nuovo_documento_word()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add
   
    For i = 1 To 10
            WordDoc.Content.InsertAfter "Testo di esempio: riga numero " & i
            WordDoc.Content.InsertParagraphAfter
    Next i
    WordDoc.SaveAs ("E:\nuovodocumento.doc")
    WordDoc.Close

    WordApp.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub