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
名称 |
---|
项 |
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。