Вопрос № 39645: Здравствуйте уважаемые эксперты.
В коде VBA для блокировки меню "File" я записываю следующий код:
ActiveDocument.CommandBars("menu bar").Controls("file").Enabled = False
и так же для меню "Too...
Вопрос № 39.645
Здравствуйте уважаемые эксперты.
В коде VBA для блокировки меню "File" я записываю следующий код:
Меня интересует как себя поведет этот код для русской версии Офиса. И
как сделать, чтобы данная функция работала как для английской, так и
для русской версии - не выдавая ошибок на существование меню.
Заранее благодарю.
Отправлен: 07.04.2006, 14:50
Вопрос задал: Art7 (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: EPDSota
Здравствуйте, Art7!
у меня русский офис2003... работает так:
CommandBars("Menu Bar").Controls("файл").Enabled = False
то есть переведены только названия кнопок...
отключить ошибки:
on error resume next 'пропуск ошибочных строк
CommandBars("Menu Bar").Controls("файл").Enabled = False
CommandBars("Menu Bar").Controls("file").Enabled = False
on error goto 0 'восстановление ошибок
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 07.04.2006, 15:36 Оценка за ответ: 5 Комментарий оценки: У меня еще одна проблемка. В редакторе VBA под Word на русском в Unicod пишутся вопросики "??????????". Какие только шрифты не пробовал - ничего не помогло.
Отвечает: Genyaa
Здравствуйте, Art7!
ActiveDocument.CommandBars("menu bar").Name - это имя такое же и в русской версии.
ActiveDocument.CommandBars("menu bar").NameLocal в русской версии = "Строка меню"
Debug.Print Application.International(wdProductLanguageID) - выдает значение 1049 для русской версии, т.е. можно в зависимости от этого значения устанавливать Enabled либо для Controls("File"), либо для Controls("Файл").
, т.к. в обоих версиях контрол Файл/File первый в меню.
Ответ отправил: Genyaa (статус: 3-ий класс)
Ответ отправлен: 07.04.2006, 15:50 Оценка за ответ: 4
Отвечает: Залетин Виталий Викторович
Здравствуйте, Art7!
Можно вот так:
ActiveDocument.CommandBars("menu bar").Controls(1).Delete
--------- Учиться никогда не поздно. Особенно программированию!