Автоматизация создания документов Microsoft Word с помощью Visual Basic

Переводы статьи Переводы статьи
Код статьи: 313193 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

Аннотация

В этой статье подробно рассмотрен вопрос автоматизации создания документов Microsoft Word с помощью Visual Basic.

Пример программы

Представленная программа служит для выполнения следующих задач.
  • Вставка абзацев с определенными параметрами форматирования.
  • Модификация диапазонов в рамках документа.
  • Вставка, форматирование и заполнение таблиц.
  • Добавление диаграмм.
Для создания документа Word с помощью Visual Basic необходимо выполнить следующие действия.
  1. Запустите Visual Basic и создайте проект Standard EXE. По умолчанию будет создана форма Form1.
  2. Выберите в меню Проект команду Ссылки. Выберите объектную библиотеку для Word и нажмите кнопку OK.

    Различным версиям Word соответствуют следующие библиотеки объектов.
    1. Word 2000 — Microsoft Word 9.0 Object Library
    2. Word 2002 — Microsoft Word 10.0 Object Library
    3. Office Word 2003 — Microsoft Word 11.0 Object Library
  3. Добавьте в форму Form1 элемент управления CommandButton.
  4. Скопируйте приведенный ниже программный код в событие Click добавленного элемента управления.
        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. Для запуска программы нажмите клавишу F5, а затем — кнопку Command1.
Будет создан двухстраничный документ, который содержит текст, таблицы и диаграмму.

Использование шаблона

Автоматизацию создания нескольких документов одного формата целесообразно осуществлять с помощью предварительно отформатированного шаблона. Использование шаблона имеет два существенных преимущества по сравнению с созданием документа с нуля.
  • Разработчик более полно контролирует формат и расположение объектов в документе.
  • Уменьшается размер программного кода, который необходим для создания документа.
Разработчик имеет возможность точно указать место расположения и формат объектов (например, таблиц и абзацев) в рамках документа. Ниже приведен пример программного кода для автоматизации создания документа на основе шаблона.
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"
				

Ссылки

За дополнительной информацией обратитесь к следующим статьям Microsoft Knowledge Base.
220607 HOWTO: Automate Microsoft Word to Perform Mail Merge from Visual Basic
285332 Использование Microsoft Visual Basic для автоматизации слияния в Microsoft Word
285333 INFO: Word 2002 MailMerge Event Code Demonstration
Дополнительные сведения см. на следующих страницах веб-узла Microsoft Developer Network (MSDN).
Использование Visual Studio для программирования Microsoft Office
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoffdev/html/vsofficedev.asp

Программа Word в составе пакета Office
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office112000.asp

Дополнительно о приложении Word
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office12072000.asp
(c) Корпорация Microsoft, 2001 г. Все права защищены. Статья подготовлена при участии Лори Б. Тернер (Lori B. Turner), корпорация Microsoft.

Свойства

Код статьи: 313193 - Последний отзыв: 17 января 2007 г. - Revision: 2.2
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
Ключевые слова: 
kbautomation kbhowtomaster KB313193

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com