AutoTextEntry.Insert (Word)

Inserts the AutoText entry in place of the specified range. Returns a Range object that represents the AutoText entry.

If you don't want to replace the range, use the Collapse method before using this method.

Syntax : expression.Insert (Where, RichText)

Sub InsertAutoTextEntry() 
 ActiveDocument.Content.Select 
 Selection.Collapse Direction:=wdCollapseEnd 
 ActiveDocument.AttachedTemplate.AutoTextEntries("one").Insert _ 
 Where:=Selection.Range, RichText:=True 
End Sub

Arguments

The following argument is required

Where (Range) - The location for the AutoText entry.

The following argument is optional

RichText (String) - True to insert the AutoText entry with its original formatting.