Количество_всех_полей_в_документе = ActiveDocument.Fields.Count
    Debug.Print Количество_всех_полей_в_документе
    For uсу = 1 To Количество_всех_полей_в_документе
        еее = ActiveDocument.Fields(uсу).Code
        Debug.Print еее
    Next uсу

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXTLIST  Проба \t ""Я твоя подсказка"" ", PreserveFormatting:=True

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXTLIST  Проба \t ""Я твоя подсказка"" ", PreserveFormatting:=False
        
    Dim i As Long
    For i = Application.NormalTemplate.AutoTextEntries.Count To 1 Step -1
        Application.NormalTemplate.AutoTextEntries(i).Delete
    Next i

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