Una famiglia di prodotti software per l'elaborazione di testo Microsoft per la creazione di documenti Web, messaggi di posta elettronica e stampa.
Vedi se funziona
Sub AutomateMailMerge() Dim objWord come oggetto Dim objDoc come oggetto
' Crea una nuova istanza di Word e rendila visibile Impostare objWord = CreateObject("Word.Application") objWord.Visible = Vero
' Aprire il modello di stampa unione Set objDoc = objWord.Documents.Open("C:\path\to\your\template.docx")
Con objDoc.MailMerge ' Connettiti alla tua origine dati . OpenDataSource Name:="C:\path\to\your\data.xlsx", _ SQLStatement:="SELEZIONA * DA 'Foglio1$'"
' Inserire i campi nel documento ' Nota: dovrai personalizzare questa parte in modo che corrisponda all'origine dati e ai requisiti objWord.Selection.TypeText Text:="Nome: " objWord.Selection.Fields.Add Range:=objWord.Selection.Range, Type:=wdFieldMergeField, Text:="FirstName" objWord.Selection.TypeParagraph objWord.Selection.TypeText Text:="Cognome: " objWord.Selection.Fields.Add Range:=objWord.Selection.Range, Type:=wdFieldMergeField, Text:="LastName" objWord.Selection.TypeParagraph
' Eseguire la stampa unione . Destinazione = wdSendToNewDocument . Eseguire Termina con Fine sottomarino
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.