Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.03.2013, 09:12   #21
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

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

Чтобы управлять контекстными меню:
  1. Сервис - Настройка... - вкладка Панели инструментов - поставьте флажок Контекстные меню;
  2. появится панель Контекстные меню. На этой панели представлены, наверное, все контекстные меню, которые появляются в программе "Word 2003" при щёлкании правой кнопкой мыши в различных ситуациях;
  3. на панели инструментов Контекстные меню щёлкните Текст - ваш пункт Список элементов автотекста;
  4. из этого контекстного меню можно вручную удалить ненужный пункт: левой кнопкой мыши потяните ненужный пункт в какую-нибудь сторону и отпустите левую кнопку мыши, а можно с помощью "VBA":
    Код:
    Sub Макрос4()
        
        'Код получен с помощью макрорекордера и изменён мной.
        Application.CommandBars("Field AutoText").Controls(1).Delete
        
    End Sub

Примечание

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

Последний раз редактировалось Скрипт; 09.03.2013 в 13:08.
Скрипт вне форума Ответить с цитированием
Старый 09.03.2013, 09:39   #22
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

да уж, код в документе:
Код:
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
Теперь в контекстном меню - нет элементов, точно можно отключать это всё, блин забыл как
????
контекстное меню просто тупо не отображается
Ципихович Эндрю вне форума Ответить с цитированием
Старый 09.03.2013, 09:55   #23
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

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

Команду On Error Resume Next нужно всегда сопровождать командой On Error GoTo 0.
Вы же хотите пропустить ошибку в какой-то конкретной команде, а не во всём коде. Если вы в дальнейшем будете добавлять команды в код, то можете не знать о том, что у вас не будут отлавливаться случайные ошибки, или можете знать об этом, но забыть.
Скрипт вне форума Ответить с цитированием
Старый 09.03.2013, 10:05   #24
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

Отключение контекстного меню:
Код:
Sub Макрос3()
    
   Application.CommandBars("Field AutoText").Enabled = False
    
End Sub
Скрипт вне форума Ответить с цитированием
Старый 09.03.2013, 12:52   #25
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

ОКЕЙНО, спасибо, то что нужно!!
Код:
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
Ципихович Эндрю вне форума Ответить с цитированием
Старый 24.03.2017, 08:22   #26
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

апну тему как подправить код в сообщениии 25, чтобы подсказка
Я твоя подсказка
отображалась в столбик
Я
твоя
подсказка
? спасибо
Ципихович Эндрю вне форума Ответить с цитированием
Старый 01.04.2017, 07:51   #27
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

подскажите, это: https://msdn.microsoft.com/en-us/lib...or=-2147217396
в Ворде можно реализовать?
Ципихович Эндрю вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсказки alexey_kip Visual C++ 1 15.04.2012 13:25
в Ворде talismanv90 Паскаль, Turbo Pascal, PascalABC.NET 1 07.06.2010 00:05
Фрагмент в Ворде Syltan Microsoft Office Word 14 01.11.2009 18:54
закладки в ворде delphi7 Помощь студентам 9 17.07.2009 11:10
Подсказки Demien Общие вопросы Delphi 5 15.11.2007 16:51