MarkAllEntries Method Example

This example marks the selected text with TA fields throughout the active document and then updates the first index in the document. The entry text in the index matches the selected text.

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