在所有 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,将倾斜格式添至索引项页码。
本示例在活动文档中以 TA 域标记所选文本,然后更新文档中第一条索引。索引中的索引项文本与选定文本匹配。
If Selection.Type = wdSelectionNormal Then
ActiveDocument.Indexes.MarkAllEntries _
Range:=Selection.Range, _
Entry:=Selection.Range.Text, Italic:=True
ActiveDocument.Indexes(1).Update
End If