Selection.CreateAutoTextEntry (Word)

Adds a new AutoTextEntry object to the AutoTextEntries collection, based on the current selection.

CreateAutoTextEntry (Name, StyleName)

Selection.CreateAutoTextEntry "handdel", _ 
 "Mailing Instructions"

Arguments

The following arguments are required:

Name (String) - The text the user must type to call the new AutoText entry.

StyleName (String) - The category in which the new AutoText entry will be listed on the AutoText menu.