Управление документами Word и Excel на VBA - eDrive

6
Windows (2).WindowState = wdWindowStateMaximize
End Sub
Sub Документ ()
Documents.Open ("Документ1.doc")
Documents.Add
имя = "Новый документ"
Documents (2).SaveAs (имя)
MsgBox "Документ называется " & Documents (2).Name
Documents (1).Activate
MsgBox "Открыто " & Documents.Count & " документа: " & _
ActiveDocument.Name & " и " & Documents (2).Name
ActiveDocument.Save
Documents.Close SaveChanges:=wdPromptToSaveChanges
End Sub
Sub КоличествоКомпонентов ()
MsgBox "В документе " & ActiveDocument.Paragraphs.Count & _
" абзацев" & Chr (13) & ActiveDocument.Sentences.Count & _
" предложений" & Chr (13) & ActiveDocument.Characters.Count _
& " символов"
End Sub
Sub СловаИПредложения ()
первое = Documents (1).Words.First
последнее = Documents (1).Sentences.Last
MsgBox "Начав со слова " & первое & _
", кончаем предложением " & последнее
End Sub
Sub ПятыйСимвол ()
ActiveDocument.Characters.Item (5) = "Ф"
Msgbox ActiveDocument.Characters.Item (5)
End Sub
Sub СтильИТипДокумента ()
Documents.Open ("Документ1.doc")
Documents ("Документ1.doc").Characters (2) = "7"
MsgBox ActiveDocument.Styles (wdStyleHeading1)
MsgBox ActiveDocument.Type
End Sub
Процедурное программирование в Word
Наиболее распространенные задачи, решаемые VBA в среде Word,
посвящены работе с выделенными фрагментами текста. Объекты класса
Selection в Word имеют богатую гамму методов и свойств:
• свойства Next и Previous возвращают фрагменты текста, следующие
за выделенным и предшествующие ему;