Publisher) (Story 对象
代表之间链接的文字框架或表格单元格中的文本排列的文本链接的文本框架中的文本。 Story 对象是 TextFrame 和 TextRange 对象以及 Storys 集合的成员。
使用 TextFrame 或 TextRange 对象的 Story 属性可返回文本框架或文本区域中的 Story 对象。
使用 Storys (索引) (其中 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。