Поделиться через


Свойство 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

См. также

Объект Document

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.