通过

StoryRanges 对象 (Word)

  • 项目

区域 的集合 对象表示文档中的情景。

备注

使用 StoryRanges 属性返回 StoryRanges 集合。 下面的示例删除活动文档中的主文本部分不同的所有文章中的文本自定义字符格式。

For Each aStory In ActiveDocument.StoryRanges 
 If aStory.StoryType <> wdMainTextStory Then aStory.Font.Reset 
Next aStory

不可用 StoryRanges 集合的 Add 方法。 StoryRanges 集合中的情景数是有限的。

使用 StoryRanges (Index) （其中 Index 是 WdStoryType 常量）将单个文章作为 Range 对象返回。 下面的示例将文本添加到主页眉部分，然后将显示的文本。

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _ 
 .Text = "Header text" 
MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text

以下示例将活动文档中的脚注文本复制到一个新文档中。

If ActiveDocument.Footnotes.Count >= 1 Then 
 ActiveDocument.StoryRanges(wdFootnotesStory).Copy 
 Documents.Add.Content.Paste 
End If

试图返回在指定文档中不可用的文章时会出错。 以下示例确定脚注部分在活动文档中是否可用。

On Error GoTo errhandler 
Set MyRange = ActiveDocument.StoryRanges(wdFootnotesStory) 
errhandler: 
If Err = 5941 Then MsgBox "The footnotes story is not available."

使用 NextStoryRange 属性循环访问文档中的所有文章。 以下示例在活动文档中搜索文本“Microsoft Word”的每个文章。找到文本时，会将其格式设置为斜体。

For Each myStoryRange In ActiveDocument.StoryRanges 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 While myStoryRange.Find.Found 
 myStoryRange.Italic = True 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 Wend 
 While Not (myStoryRange.NextStoryRange Is Nothing) 
 Set myStoryRange = myStoryRange.NextStoryRange 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 While myStoryRange.Find.Found 
 myStoryRange.Italic = True 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 Wend 
 Wend 
Next myStoryRange

方法

名称
项

属性

名称
Application
Count
Creator
Parent

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。