使用英语阅读

通过


Publisher) (Story 对象

代表之间链接的文字框架或表格单元格中的文本排列的文本链接的文本框架中的文本。 Story 对象是 TextFrameTextRange 对象以及 Storys 集合的成员。

备注

使用 TextFrameTextRange 对象的 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。