Word VBA教程:NextStoryRange属性

返回一个Range对象,该对象引用下一个文字部分,如下表所示。

文字部分
的类型
用 NextStoryRange方法返回的项目
wdMainTextStory、wdFootnotesStory、wdEndnotesStory 和 wdCommentsStory 总是返回 Nothing
wdTextFrameStory 下一组链接文本框的文字部分
wdEvenPagesHeaderStory、wdPrimaryHeaderStory、wdEvenPagesFooterStory、wdPrimaryFooterStory、wdFirstPageHeaderStory、wdFirstPageFooterStory 下一节中相同类型的文字部分

expression.NextStoryRange

expression   必需。该表达式返回一个Range对象。

VBA示例

本示例向活动文档中前两节的偶数页页眉中添加文本。


If ActiveDocument.Sections.Count >= 2 Then
    With ActiveDocument
        .PageSetup.OddAndEvenPagesHeaderFooter = True
        .Sections(1).Headers(wdHeaderFooterEvenPages) _
            .Range.Text = "Even Header 1"
        .Sections(2).Headers(wdHeaderFooterEvenPages) _
            .LinkToPrevious = False
        .StoryRanges(wdEvenPagesHeaderStory) _
            .NextStoryRange.Text = "Even Header 2"
    End With
End If

本示例在活动文档的每个文字部分中搜索文字“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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号