Подсказки в Ворде

[Скрипт]

Код получен с помощью макрорекордера в "Word 2003":

Sub Макрос2()

    NormalTemplate.AutoTextEntries("АВИАПОЧТОЙ").Delete

End Sub

[Ципихович Эндрю]

не понял, так

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXTLIST  Проба \t ""Я твоя подсказка"" ", PreserveFormatting:=False
         NormalTemplate.AutoTextEntries("АВИАПОЧТОЙ").Delete

так не убрался этот столбец!!!

[Скрипт]

Ципихович Эндрю, в сообщении #11 удаляется только один элемент автотекста - "АВИАПОЧТОЙ". Значит вам надо применить цикл для удаления других элементов автотекста или же посмотреть другие команды VBA-Word.

[Ципихович Эндрю]

понял, грозит Фор еах, до тех пор пока ... не свиснет рак
так и не могу я осилить эту конструкцию, можете изобразить в коде, чтобы всё под корень, заранее спасибо!!

[Скрипт]

Ципихович Эндрю, не получается удалить все элементы автотекста в "Word 2003".

Элементы автотекста делятся на два вида:

1. элементы автотекста, которые могут быть удалены;
2. элементы автотекста, которые не могут быть удалены.

Программа "Word" имеет какой-то язык. Например, есть программа "Word" на русском языке, на английском языке и может ещё на каких языках есть. Я подразумеваю не язык кнопок и других элементов управления, которые видны в программе "Word", а вообще - программа "Word" имеет язык.

Автотекст связан с языками, которые используются в программе "Word".
Переключая язык клавиатуры, мы будем наблюдать в "Word 2003" вот здесь: Вставка - Автотекст - автотексты для выбранного на клавиатуре языка.

И удалить можно только автотекст на том языке, который имеет программа "Word". Если у нас программа "Word" на русском языке, то можно удалить в Вставка - Автотекст только автотекст, который сделан программистами из организации "Microsoft" для русского языка.

С помощью этого кода можно удалить элементы автотекста, которые можно удалить:

Sub Макрос2()

    Dim i As Long
    
    'Если нужно что-то удалять, то лучше удалять с конца (т.к.
        'не всегда получается удалять элементы с начала).
    For i = Application.NormalTemplate.AutoTextEntries.Count To 1 Step -1
        Application.NormalTemplate.AutoTextEntries(i).Delete
    Next i
    
End Sub

Без макросов весь автотекст можно так удалить в "Word 2003":
Сервис - Шаблоны и надстройки... - в левом нижнем углу Организатор... - вкладка Автотекст.

Всю информацию, кроме макроса, посмотрел в "Word 2003" во встроенной справке по запросу "автотекст".

[Ципихович Эндрю]

спасибо, осталось одно:
как избавиться от надписи в контекстном меню создать автотекст???

[Скрипт]

Ципихович Эндрю, а как вы вызываете контекстное меню, в котором есть "Создать автотекст"?

[Ципихович Эндрю]

Нажимаю наведя на поле правой клавишей мыши

[Скрипт]

Ципихович Эндрю, выложите Word-документ с этим полем, чтобы иметь представление, что за поле.

[Ципихович Эндрю]

Прилагаю файл с полем