I can't see any good reason why it should not work from the clip you have posted, but you could try setting a range e.g.

Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Collapse wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("m yStandardText").Insert _
Where:=oRng, _
RichText:=True

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com