Range.InsertAutoText (Word)

Intenta que coincida el texto del intervalo especificado o el texto que lo rodea con el nombre de un elemento de Autotexto.

Si Word encuentra una coincidencia, InsertAutoText inserta el elemento de Autotexto para reemplazar el texto. Puede utilizar el método Insert con un objeto AutoTextEntry para insertar un elemento de Autotexto específico.

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