Range.InsertAutoText (Word)

Tenta coincidir o texto do intervalo especificado ou o texto ao redor do intervalo com um nome de entrada de AutoTexto existente.

Se o Word encontrar uma correspondência, InsertAutoText inserirá a entrada de AutoTexto para substituir esse texto. Se o Word não puder localizar uma coincidência, ocorrerá um erro. Você pode usar o método Insert com um objeto AutoTextEntry para inserir uma entrada de AutoTexto específica.

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