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