Свойство Document.Content (Word)
Возвращает объект Range , представляющий основную историю документа. Только для чтения.
Синтаксис
expression. Содержимого
Выражение Переменная, представляющая объект Document .
Замечания
Следующие два оператора эквивалентны:
Set mainStory = ActiveDocument.Content
Set mainStory = ActiveDocument.StoryRanges(wdMainTextStory)
Пример
В этом примере изменяется шрифт и размер текста в активном документе на Arial 10.
Set myRange = ActiveDocument.Content
With myRange.Font
.Name = "Arial"
.Size = 10
End With
В этом примере в конец документа вставляется текст с именем "Changes.doc". Для каждого... Инструкция Next используется для определения того, открыт ли документ.
For Each aDocument In Documents
If InStr(LCase$(aDocument.Name), "changes.doc") Then
Set myRange = Documents("Changes.doc").Content
myRange.InsertAfter "the end."
End If
Next aDocument
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.