Range.InsertAutoText (Word)

Vergleicht den Text im oder um den angegebenen Bereich mit dem Namen eines vorhandenen AutoText-Eintrags.

Wenn Word eine Übereinstimmung findet, fügt InsertAutoText den AutoText-Eintrag ein, um diesen Text zu ersetzen. Einen bestimmten AutoText-Eintrag fügen Sie mit der Insert-Methode und einem AutoTextEntry-Objekt ein.

Documents.Add 
Selection.TypeText "Best w" 
Selection.Range.InsertAutoText