Метод Range.WholeStory (Word)
Расширяет диапазон, чтобы включить всю историю.
Синтаксис
выражение. WholeStory
выражение (обязательно). Переменная, представляющая объект Range .
Замечания
Следующие инструкции, где myRange является допустимым объектом Range , функционально эквивалентны:
myRange.WholeStory
myRange.Expand Unit:=wdStory
Пример
В этом примере myRange расширяется, чтобы включить всю историю, а затем применяется шрифт Arial к диапазону.
Set myRange = Selection.Range
myRange.WholeStory
myRange.Font.Name = "Arial"
В этом примере myRange разворачивается, чтобы включить всю историю комментариев (wdCommentsStory), а затем копирует их в новый документ.
If ActiveDocument.Comments.Count >= 1 Then
Set myRange = Activedocument.Comments(1).Range
myRange.WholeStory
myRange.Copy
Documents.Add.Content.Paste
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.