Come automatizzare Microsoft Word utilizzando Visual Basic per creare un nuovo documento

Codice di esempio

• Inserire testo e la formattazione di paragrafi.
• Individuare e modificare vari intervalli all'interno di un documento.
• Inserire tabelle, formattare le tabelle e popolare le tabelle con dati.
• Aggiungere un grafico.

1. In Visual Basic, creare un nuovo progetto EXE standard. In base all'impostazione predefinita, viene creato il progetto Form1.
2. Scegliere riferimenti dal menu progetto , scegliere una delle seguenti opzioni e scegliere OK :
   • Per Office Word 2007, fare clic su Microsoft Word 12.0 Object Library .
   • Per Word 2003, fare clic su Microsoft Word 11.0 Object Library .
   • Per Word 2002, fare clic su Microsoft Word 10.0 Object Library .
   • Per Word 2000, fare clic su Microsoft Word 9.0 Object Library .
3. Aggiungere un controllo CommandButton al Form1.
4. Aggiungere il seguente codice all'evento Click per Command1:

       Dim oWord As Word.Application
       Dim oDoc As Word.Document
       Dim oTable As Word.Table
       Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
       Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph
       Dim oRng As Word.Range
       Dim oShape As Word.InlineShape
       Dim oChart As Object
       Dim Pos as Double
   
       'Start Word and open the document template.
       Set oWord = CreateObject("Word.Application")
       oWord.Visible = True
       Set oDoc = oWord.Documents.Add
       
       'Insert a paragraph at the beginning of the document.
       Set oPara1 = oDoc.Content.Paragraphs.Add
       oPara1.Range.Text = "Heading 1"
       oPara1.Range.Font.Bold = True
       oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.
       oPara1.Range.InsertParagraphAfter
       
       'Insert a paragraph at the end of the document.
       '** \endofdoc is a predefined bookmark.
       Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
       oPara2.Range.Text = "Heading 2"
       oPara2.Format.SpaceAfter = 6
       oPara2.Range.InsertParagraphAfter
       
       'Insert another paragraph.
       Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
       oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"
       oPara3.Range.Font.Bold = False
       oPara3.Format.SpaceAfter = 24
       oPara3.Range.InsertParagraphAfter
       
       'Insert a 3 x 5 table, fill it with data and make the first row
       'bold,italic.
       Dim r As Integer, c As Integer
       Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 5)
       oTable.Range.ParagraphFormat.SpaceAfter = 6
       For r = 1 To 3
           For c = 1 To 5
               oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
           Next
       Next
       oTable.Rows(1).Range.Font.Bold = True
       oTable.Rows(1).Range.Font.Italic = True
       
       'Add some text after the table.
       'oTable.Range.InsertParagraphAfter
       Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
       oPara4.Range.InsertParagraphBefore
       oPara4.Range.Text = "And here's another table:"
       oPara4.Format.SpaceAfter = 24
       oPara4.Range.InsertParagraphAfter
       
       'Insert a 5 x 2 table, fill it with data and change the column widths.
       Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 5, 2)
       oTable.Range.ParagraphFormat.SpaceAfter = 6
       For r = 1 To 5
           For c = 1 To 2
               oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
           Next
       Next
       oTable.Columns(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2.
       oTable.Columns(2).Width = oWord.InchesToPoints(3)
       
       'Keep inserting text. When you get to 7 inches from top of the
       'document, insert a hard page break.
       Pos = oWord.InchesToPoints(7)
       oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter
       Do
           Set oRng = oDoc.Bookmarks("\endofdoc").Range
           oRng.ParagraphFormat.SpaceAfter = 6
           oRng.InsertAfter "A line of text"
           oRng.InsertParagraphAfter
       Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)
       oRng.Collapse (wdCollapseEnd)
       oRng.InsertBreak wdPageBreak
       oRng.Collapse wdCollapseEnd
       oRng.InsertAfter "We're now on page 2. Here's my chart:"
       oRng.InsertParagraphAfter
       
       'Insert a chart and change the chart.
       Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _
           ClassType:="MSGraph.Chart.8", FileName _
           :="", LinkToFile:=False, DisplayAsIcon:=False)
       Set oChart = oShape.OLEFormat.Object
       oChart.charttype = 4 'xlLine = 4
       oChart.Application.Update
       oChart.Application.Quit
       '... If desired, you can proceed from here using the Microsoft Graph 
       'Object model on the oChart object to make additional changes to the
       'chart.
       oShape.Width = oWord.InchesToPoints(6.25)
       oShape.Height = oWord.InchesToPoints(3.57)
       
       'Add text after the chart.
       Set oRng = oDoc.Bookmarks("\endofdoc").Range
       oRng.InsertParagraphAfter
       oRng.InsertAfter "THE END."
   
       'All done. Unload this form.
       Unload Me
   					

5. Premere F5 per eseguire il programma e quindi fare clic su Command1 .

Utilizzare un modello

• Puoi avere maggiore controllo sulla formattazione e selezione host di oggetti all'interno dei documenti.
• È possibile creare i documenti con meno codice.

oWord.Documents.Add "<Path to your template>\MyTemplate.dot"
				

oDoc.Bookmarks("MyBookmark").Range.Text = "Some Text Here"
				

oDoc.Bookmarks("MyBookmark").Range.Style = "MyStyle"
				

oWord.Selection.Style = "MyStyle"