Come automatizzare Word per eseguire una stampa unione da Visual Basic .NET

Articolo
06/20/2023
Si applica a:

Microsoft Word

Riepilogo

Questo articolo illustra come usare Microsoft Office Word per creare un documento unito tramite posta elettronica tramite Automazione da Microsoft Visual Basic .NET.

Ulteriori informazioni

L'automazione è un processo che consente alle applicazioni scritte in linguaggi come Visual Basic .NET di controllare altre applicazioni a livello di codice. Automazione in Word consente di eseguire azioni come la creazione di nuovi documenti, l'aggiunta di testo ai documenti e la formattazione dei documenti. Con Word e altre applicazioni di Microsoft Office, praticamente tutte le azioni che è possibile eseguire manualmente tramite l'interfaccia utente possono essere eseguite anche a livello di codice tramite Automazione.

Word espone questa funzionalità a livello di codice tramite un modello a oggetti. Il modello a oggetti è una raccolta di classi e metodi che fungono da controparti ai componenti logici di Word. Ad esempio, sono presenti un oggetto Application, un oggetto Document e un oggetto Paragraph, ognuno dei quali contiene la funzionalità di tali componenti in Word. Per accedere al modello a oggetti da Visual Basic .NET, è possibile impostare un riferimento al progetto alla libreria dei tipi.

Questo articolo illustra come impostare il riferimento di progetto appropriato alla libreria dei tipi di Word per Visual Basic .NET e fornisce codice di esempio per automatizzare Word.

Creare un client di Automazione per Word

Avviare Microsoft Visual Studio .NET.
Scegliere Nuovo dal menu File e quindi fare clic su Progetto. Selezionare Applicazione Windows dai tipi di progetto di Visual Basic. Form1 viene creato per impostazione predefinita.
Aggiungere un riferimento alla libreria di oggetti di Microsoft Word. A tal fine, attenersi alla seguente procedura:
1. Scegliere Aggiungi riferimento dal menu Progetto.
2. Nella scheda COM individuare Raccolta oggetti di Microsoft Word e quindi fare clic su Seleziona.
Nota Microsoft Office 2003 include assembly di interoperabilità primari ( PIA). Microsoft Office XP non include FUNZIONALITÀ personali, ma può essere scaricato.
1. Fare clic su OK nella finestra di dialogo Aggiungi riferimenti per accettare le selezioni.
Nel menu Visualizza selezionare Casella degli strumenti per visualizzare la casella degli strumenti e quindi aggiungere un pulsante a Form1.
Fare doppio clic su Button1. Viene visualizzata la finestra del codice per il modulo.

Nella finestra del codice sostituire il codice seguente.

    Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
    End Sub

Usare il codice seguente.

    Dim wrdApp As Word.Application
    Dim wrdDoc As Word._Document

Private Sub InsertLines(ByVal LineNum As Integer)
        Dim iCount As Integer

' Insert "LineNum" blank lines.
        For iCount = 1 To LineNum
            wrdApp.Selection.TypeParagraph()
        Next iCount
    End Sub

Private Sub FillRow(ByVal Doc As Word.Document, ByVal Row As Integer, _
    ByVal Text1 As String, ByVal Text2 As String, _
    ByVal Text3 As String, ByVal Text4 As String)

With Doc.Tables.Item(1)
            ' Insert the data in the specific cell.
            .Cell(Row, 1).Range.InsertAfter(Text1)
            .Cell(Row, 2).Range.InsertAfter(Text2)
            .Cell(Row, 3).Range.InsertAfter(Text3)
            .Cell(Row, 4).Range.InsertAfter(Text4)
        End With
    End Sub

Private Sub CreateMailMergeDataFile()
        Dim wrdDataDoc As Word._Document
        Dim iCount As Integer

' Create a data source at C:\DataDoc.doc containing the field data.
        wrdDoc.MailMerge.CreateDataSource(Name:="C:\DataDoc.doc", _
              HeaderRecord:="FirstName, LastName, Address, CityStateZip")
        ' Open the file to insert data.
        wrdDataDoc = wrdApp.Documents.Open("C:\DataDoc.doc")
        For iCount = 1 To 2
            wrdDataDoc.Tables.Item(1).Rows.Add()
        Next iCount
        ' Fill in the data.
        FillRow(wrdDataDoc, 2, "Steve", "DeBroux", _
              "4567 Main Street", "Buffalo, NY  98052")
        FillRow(wrdDataDoc, 3, "Jan", "Miksovsky", _
              "1234 5th Street", "Charlotte, NC  98765")
        FillRow(wrdDataDoc, 4, "Brian", "Valentine", _
              "12348 78th Street  Apt. 214", "Lubbock, TX  25874")
        ' Save and close the file.
        wrdDataDoc.Save()
        wrdDataDoc.Close(False)
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
        Dim wrdSelection As Word.Selection
        Dim wrdMailMerge As Word.MailMerge
        Dim wrdMergeFields As Word.MailMergeFields

Dim StrToAdd As String

' Create an instance of Word  and make it visible.
        wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True

' Add a new document.

wrdDoc = wrdApp.Documents.Add()
        wrdDoc.Select()

wrdSelection = wrdApp.Selection()
        wrdMailMerge = wrdDoc.MailMerge()

' Create MailMerge Data file.
        CreateMailMergeDataFile()

' Create a string and insert it in the document.
        StrToAdd = "State University" & vbCr & _
                    "Electrical Engineering Department"
        wrdSelection.ParagraphFormat.Alignment = _
                    Word.WdParagraphAlignment.wdAlignParagraphCenter
        wrdSelection.TypeText(StrToAdd)

InsertLines(4)

' Insert merge data.
        wrdSelection.ParagraphFormat.Alignment = _
                    Word.WdParagraphAlignment.wdAlignParagraphLeft
        wrdMergeFields = wrdMailMerge.Fields()
        wrdMergeFields.Add(wrdSelection.Range, "FirstName")
        wrdSelection.TypeText(" ")
        wrdMergeFields.Add(wrdSelection.Range, "LastName")
        wrdSelection.TypeParagraph()

wrdMergeFields.Add(wrdSelection.Range, "Address")
        wrdSelection.TypeParagraph()
        wrdMergeFields.Add(wrdSelection.Range, "CityStateZip")

InsertLines(2)

' Right justify the line and insert a date field
        ' with the current date.
        wrdSelection.ParagraphFormat.Alignment = _
               Word.WdParagraphAlignment.wdAlignParagraphRight
        wrdSelection.InsertDateTime( _
              DateTimeFormat:="dddd, MMMM dd, yyyy", _
              InsertAsField:=False)

InsertLines(2)

' Justify the rest of the document.
        wrdSelection.ParagraphFormat.Alignment = _
               Word.WdParagraphAlignment.wdAlignParagraphJustify

wrdSelection.TypeText("Dear ")
        wrdMergeFields.Add(wrdSelection.Range, "FirstName")
        wrdSelection.TypeText(",")
        InsertLines(2)

' Create a string and insert it into the document.
        StrToAdd = "Thank you for your recent request for next " & _
            "semester's class schedule for the Electrical " & _
            "Engineering Department. Enclosed with this " & _
            "letter is a booklet containing all the classes " & _
            "offered next semester at State University.  " & _
            "Several new classes will be offered in the " & _
            "Electrical Engineering Department next semester.  " & _
            "These classes are listed below."
        wrdSelection.TypeText(StrToAdd)

InsertLines(2)

' Insert a new table with 9 rows and 4 columns.
        wrdDoc.Tables.Add(wrdSelection.Range, NumRows:=9, _
             NumColumns:=4)

With wrdDoc.Tables.Item(1)
            ' Set the column widths.
            .Columns.Item(1).SetWidth(51, Word.WdRulerStyle.wdAdjustNone)
            .Columns.Item(2).SetWidth(170, Word.WdRulerStyle.wdAdjustNone)
            .Columns.Item(3).SetWidth(100, Word.WdRulerStyle.wdAdjustNone)
            .Columns.Item(4).SetWidth(111, Word.WdRulerStyle.wdAdjustNone)
            ' Set the shading on the first row to light gray.
            .Rows.Item(1).Cells.Shading.BackgroundPatternColorIndex = _
             Word.WdColorIndex.wdGray25
            ' Bold the first row.
            .Rows.Item(1).Range.Bold = True
            ' Center the text in Cell (1,1).
            .Cell(1, 1).Range.Paragraphs.Alignment = _
                      Word.WdParagraphAlignment.wdAlignParagraphCenter

' Fill each row of the table with data.
            FillRow(wrdDoc, 1, "Class Number", "Class Name", "Class Time", _
               "Instructor")
            FillRow(wrdDoc, 2, "EE220", "Introduction to Electronics II", _
                      "1:00-2:00 M,W,F", "Dr. Jensen")
            FillRow(wrdDoc, 3, "EE230", "Electromagnetic Field Theory I", _
                      "10:00-11:30 T,T", "Dr. Crump")
            FillRow(wrdDoc, 4, "EE300", "Feedback Control Systems", _
                      "9:00-10:00 M,W,F", "Dr. Murdy")
            FillRow(wrdDoc, 5, "EE325", "Advanced Digital Design", _
                      "9:00-10:30 T,T", "Dr. Alley")
            FillRow(wrdDoc, 6, "EE350", "Advanced Communication Systems", _
                      "9:00-10:30 T,T", "Dr. Taylor")
            FillRow(wrdDoc, 7, "EE400", "Advanced Microwave Theory", _
                      "1:00-2:30 T,T", "Dr. Lee")
            FillRow(wrdDoc, 8, "EE450", "Plasma Theory", _
                      "1:00-2:00 M,W,F", "Dr. Davis")
            FillRow(wrdDoc, 9, "EE500", "Principles of VLSI Design", _
                      "3:00-4:00 M,W,F", "Dr. Ellison")
        End With

' Go to the end of the document.
        wrdApp.Selection.GoTo(Word.WdGoToItem.wdGoToLine, _
                   Word.WdGoToDirection.wdGoToLast)

InsertLines(2)

' Create a string and insert it into the document.
        StrToAdd = "For additional information regarding the " & _
                   "Department of Electrical Engineering, " & _
                   "you can visit our Web site at "
        wrdSelection.TypeText(StrToAdd)
        ' Insert a hyperlink to the Web page.
        wrdSelection.Hyperlinks.Add(Anchor:=wrdSelection.Range, _
           Address:="http://www.ee.stateu.tld")
        ' Create a string and insert it in the document.
        StrToAdd = ".  Thank you for your interest in the classes " & _
                   "offered in the Department of Electrical " & _
                   "Engineering.  If you have any other questions, " & _
                   "please feel free to give us a call at " & _
                   "555-1212." & vbCr & vbCr & _
                   "Sincerely," & vbCr & vbCr & _
                   "Kathryn M. Hinsch" & vbCr & _
                   "Department of Electrical Engineering" & vbCr
        wrdSelection.TypeText(StrToAdd)

' Perform mail merge.
        wrdMailMerge.Destination = _
                   Word.WdMailMergeDestination.wdSendToNewDocument
        wrdMailMerge.Execute(False)

' Close the original form document.
        wrdDoc.Saved = True
        wrdDoc.Close(False)

' Release References.
        wrdSelection = Nothing
        wrdMailMerge = Nothing
        wrdMergeFields = Nothing
        wrdDoc = Nothing
        wrdApp = Nothing

' Clean up temp file.
        System.IO.File.Delete("C:\DataDoc.doc")
    End Sub

Aggiungere quanto segue all'inizio di Form1.vb.
```
Imports Microsoft.Office.Interop
```
Premere F5 per compilare ed eseguire il programma.
Fare clic su Button1 per avviare Automazione Word e per eseguire la stampa unione.

Riferimenti

Per altre informazioni, visitare il seguente sito Web Microsoft Developer Network (MSDN):

Sviluppo di Microsoft Office con Visual Studio

Per altre informazioni sull'automazione di Word con Microsoft Visual Basic 5.0 o 6.0, fare clic sui numeri degli articoli seguenti per visualizzare gli articoli della Microsoft Knowledge Base:

285332 Come automatizzare Word con Visual Basic per creare una stampa unione

Come automatizzare Word per eseguire una stampa unione da Visual Basic .NET

Riepilogo

Ulteriori informazioni

Creare un client di Automazione per Word

Riferimenti

Risorse aggiuntive