В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

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

Поддержка Office 2003 завершена

8 апреля 2014 г. корпорация Майкрософт прекратила поддержку Office 2003. Это повлияло на обновления программного обеспечения и параметры безопасности. Узнайте, что это значит для вас и какие меры по безопасности можно предпринять.

Аннотация
В этой статье подробно рассмотрен вопрос автоматизации создания документов 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 — последний просмотр: 01/17/2007 07:13:34 — редакция: 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
Отзывы и предложения