Question

在所有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