InsertAutoText Method Example

This example inserts an AutoText entry that matches the text around a selection.

Documents.Add
Selection.TypeText "Best w"
Selection.Range.InsertAutoText

This example inserts an AutoText entry with a name that matches the first word in the active document.

Documents.Add
Selection.TypeText "In "
Set myRange = ActiveDocument.Words(1)
myRange.InsertAutoText