Объект Story (Publisher)
Представляет текст в несвязанном текстовом фрейме, тексте, перетекаемом между связанными текстовыми кадрами или тексте в ячейке таблицы. Объект Story является членом объектов TextFrame и TextRange , а также коллекции Stories .
Используйте свойство Story объекта TextFrame или TextRange , чтобы вернуть объект Story в текстовом фрейме или текстовом диапазоне.
Используйте stories (index), где индекс — это номер истории, чтобы вернуть отдельный объект Story .
Этот пример возвращает историю в выделенном текстовом диапазоне и, если она находится в текстовом кадре, вставляет текст в текстовый диапазон.
Sub AddTextToStory()
With Selection.TextRange.Story
If .HasTextFrame Then .TextRange _
.InsertAfter NewText:=vbLf & "This is a test."
End With
End Sub
В этом примере определяется, имеет ли первый рассказ в активной публикации текстовый кадр, и если он есть, то форматирует абзацы в рассказе с отступом в пол-дюйма первой строки и шеститочечным интервалом перед каждым абзацем.
Sub StoryParagraphFirstLineIndent()
With ActiveDocument.Stories(1)
If .HasTextFrame Then
With .TextFrame.TextRange.ParagraphFormat
.FirstLineIndent = InchesToPoints(0.5)
.SpaceBefore = 6
End With
End If
End With
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.