Page 77 - 6735

після виділення "!!"
'відмінити виділення і перемістити курсор в його кінець
wdDoc.ActiveWindow.Selection.Collapse
Direction:=wdCollapseEnd
wdApp.Documents.Add 'додати документ
n = wdApp.ActiveDocument.name 'ім'я активного документа
wdApp.ActiveWindow.Selection.Paste 'вставити з буфера
обміну
wdApp.Documents(2).Windows(1).Activate 'активувати другий
документ
'надати жирний шрифт першому слову першого абзацу
wdApp.Documents(2).Paragraphs(1).Range.Words(1).Font.Bold
= True
'вивести перший символ першого слова першого речення
Debug.Print
wdApp.Documents(2).Sentences(1).Words(1).Characters(1)
wdApp.Documents(n).SaveAs ("e:\my_doc.doc") 'зберегти як
wdApp.Documents("my_doc").Close 'закрити документ з іменем
my_doc
wdApp.Documents.Open ("e:\my_doc.doc") 'відкрити документ
'знайти слова "world" і замінити на "World"
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "world"
.Replacement.ClearFormatting
.Replacement.Text = "World"
.Execute Replace:=wdReplaceAll
End With
wdApp.Quit 'вийти з Word
End Sub
hello world!
h

OLE Automation – використання об’єктів Excel із VBA-сценарію
Word

77