Word VBA教程:MarkAllEntries方法

在所有 Range 中的文字实例后插入 XE(索引项)域。

expression.MarkAllEntries(Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic)

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

Range   Range对象,必需。整个文档中该域包含的所有的文字用 XE 域标记的域。

Entry   Variant 类型,可选。索引中出现的文字,形式如:主索引项 [:子索引项]。

EntryAutoText   Variant 类型,可选。包含索引中出现的文字的“自动图文集”词条(如果指定了该参数,则忽略 Entry)。

CrossReference   Variant 类型,可选。出现在索引中的交叉引用。

CrossReferenceAutoText   Variant 类型,可选。包含了交叉引用文字的自动图文集词条名(如果指定了该参数,则忽略 CrossReference)。

BookmarkName   Variant 类型,可选。标记索引中出现的页面范围的书签名。如果省略该参数,则在索引中出现包含 XE 域的页码。

Bold   Variant 类型,可选。如果此参数为 True,将加粗格式添至索引项页码。

Italic   Variant 类型,可选。如果该参数为 True,将倾斜格式添至索引项页码。

VBA示例

本示例在活动文档中以 TA 域标记所选文本,然后更新文档中第一条索引。索引中的索引项文本与选定文本匹配。


If Selection.Type = wdSelectionNormal Then
    ActiveDocument.Indexes.MarkAllEntries _
        Range:=Selection.Range, _
        Entry:=Selection.Range.Text, Italic:=True
    ActiveDocument.Indexes(1).Update
End If

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号