Assuming that the autotext entry is stored in the Normal.dot template,
that its name is TheEntry, and that you want it formatted as it was
stored and not as plain text, you can do this:

  Dim MyRange As Range

  Set MyRange = ActiveDocument.Range
  MyRange.Collapse wdCollapseStart

  NormalTemplate.AutoTextEntries("TheEntry").Insert _
       Where:=MyRange, RichText:=True

A more complicated example is shown at
http://word.mvps.org/FAQs/MacrosVBA/NestedFieldsWithVBA.htm.

--
Regards,
Jay Freedman
Microsoft Word MVP         FAQ: http://word.mvps.org