Sub AutoOpen()

     'добавление поля AUTOTEXTLIST с подсказкой
     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
     Text:="AUTOTEXTLIST  Проба \t ""Я твоя подсказка"" ", PreserveFormatting:=False
         
    'оператор для отлова ошибок, указывает, что при возникновении ошибки требуется продолжать выполнять процедуру
    On Error Resume Next
    
    'отключение контекстного меню поля AutoText
    Application.CommandBars("Field AutoText").Enabled = False
    
    'отмена оператора для отлова ошибок
    On Error GoTo 0
    
End Sub