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