Add Method (AutoTextEntries Collection) Example

This example adds an AutoText entry named "MyText" that contains the text in the selection.

NormalTemplate.AutoTextEntries.Add Name:= "MyText", _
    Range:= Selection.Range