Свойство TextRange.Story (Publisher)

Возвращает объект Story , представляющий свойства истории в текстовом диапазоне.

Синтаксис

expression. Строй

Выражение Переменная, представляющая объект TextRange .

Пример

Этот пример возвращает историю в выделенном текстовом диапазоне и, если она находится в текстовом кадре, вставляет текст в текстовый диапазон.

Sub AddTextToStory() 
 With Selection.TextRange.Story 
 If .HasTextFrame Then 
 .TextRange.InsertAfter NewText:=vbLf & "This is a test." 
 End If 
 End With 
End Sub

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

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