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

[Скрипт]

В программе "Word 2003" можно было управлять контекстными меню.

Чтобы управлять контекстными меню:

1. Сервис - Настройка... - вкладка Панели инструментов - поставьте флажок Контекстные меню;
2. появится панель Контекстные меню. На этой панели представлены, наверное, все контекстные меню, которые появляются в программе "Word 2003" при щёлкании правой кнопкой мыши в различных ситуациях;
3. на панели инструментов Контекстные меню щёлкните Текст - ваш пункт Список элементов автотекста;
4. из этого контекстного меню можно вручную удалить ненужный пункт: левой кнопкой мыши потяните ненужный пункт в какую-нибудь сторону и отпустите левую кнопку мыши, а можно с помощью "VBA":
   

   Sub Макрос4()
       
       'Код получен с помощью макрорекордера и изменён мной.
       Application.CommandBars("Field AutoText").Controls(1).Delete
       
   End Sub

Примечание

Удалённую команду из контекстного меню затем можно вернуть обратно, наверное.

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

да уж, код в документе:

Sub AutoOpen()

    Dim i As Long
        
    For i = Application.NormalTemplate.AutoTextEntries.Count To 1 Step -1
        Application.NormalTemplate.AutoTextEntries(i).Delete
    Next i
    
    'оператор для отлова ошибок, указывает, что при возникновении ошибки требуется продолжать выполнять процедуру
    On Error Resume Next
 
    Application.CommandBars("Field AutoText").Controls(1).Delete
    
End Sub

Теперь в контекстном меню - нет элементов, точно можно отключать это всё, блин забыл как
????
контекстное меню просто тупо не отображается

[Скрипт]

Ципихович Эндрю, не по вопросу, а просто замечение по коду из сообщения #22.

Команду On Error Resume Next нужно всегда сопровождать командой On Error GoTo 0.
Вы же хотите пропустить ошибку в какой-то конкретной команде, а не во всём коде. Если вы в дальнейшем будете добавлять команды в код, то можете не знать о том, что у вас не будут отлавливаться случайные ошибки, или можете знать об этом, но забыть.

[Скрипт]

Отключение контекстного меню:

Sub Макрос3()
    
   Application.CommandBars("Field AutoText").Enabled = False
    
End Sub

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

ОКЕЙНО, спасибо, то что нужно!!

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

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

апну тему как подправить код в сообщениии 25, чтобы подсказка
Я твоя подсказка
отображалась в столбик
Я
твоя
подсказка
? спасибо

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

подскажите, это: https://msdn.microsoft.com/en-us/lib...or=-2147217396
в Ворде можно реализовать?