Page 76 - 6735

Об’єктна модель Word (Microsoft Word 11.0 Object Library)
дозволяє звертатись з VBA-програми до усіх основних компонентів
програми Word: документів, вікон, діапазонів, абзаців тощо [15, 16,
19, 21, 29, 31-33, 45]. У прикладі показано використання основних
компонентів Word, їхніх властивостей і методів. Перед виконанням
виберіть в меню: Tools/References/Microsoft Word 11.0 Object
Library.

Public Sub main()
Dim wdApp As Word.Application 'об'єкт програма Word
Dim wdDoc As Word.Document 'об'єкт документ
Set wdApp = CreateObject("Word.Application") 'створити
об'єкт Word
Set wdDoc = wdApp.Documents.Add 'створити об'єкт документ
wdApp.Visible = True 'зробити видимим Word
wdDoc.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
'масштаб виду
wdDoc.ActiveWindow.Selection.TypeText "hello world!"
'надрукувати текст
wdDoc.ActiveWindow.Selection.TypeParagraph 'надрукувати
знак абзацу
wdDoc.ActiveWindow.Selection.TypeText "Visual Basic for
Applications"
'колір діапазону з перших шести символів
wdDoc.Range(0, 6).Font.Color = wdColorBlue
'виділити діапазон із перших двох слів
wdDoc.Range(wdDoc.Words(1).Start,
wdDoc.Words(2).End).Select
'розширити виділення до символу "!"
wdDoc.ActiveWindow.Selection.Extend Character:="!"
'вивести текст виділення
Debug.Print
wdApp.ActiveDocument.ActiveWindow.Selection.Text
wdDoc.ActiveWindow.Selection.Copy 'копіювати виділення в
буфер обміну
wdDoc.ActiveWindow.Selection.InsertAfter "!!" 'вставити
76