Word VBA教程:StoryRanges属性

该属性返回一个StoryRanges集合,该集合代表指定文档中的所有的文字部分。只读。

有关返回集合中单个成员的内容,请参阅返回集合中的对象

VBA示例

本示例检查 StoryRanges集合中的每一个元素,判定 wdPrimaryFooterStory 是否为 StoryRanges集合的一部分。


For Each aStory In ActiveDocument.StoryRanges
    If aStory.StoryType = wdEvenPagesFooterStory Then
        MsgBox "Document includes an even page footer"
    End If
Next aStory

本示例将文字添至文档页眉部分,然后显示该文字。


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

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号