1

Тема: Изменение стандартной иконки word 2003

Всем привет!
И так вопрос, есть в word 2003 (как и в 2010) стандартные иконки со стандартными действиями, которые очень легко настроить на существующую или новую панель инструментов.
и есть такая иконка как Обеъект... (в 2010 немного по-другому называется)
фото 1
Изменение стандартной иконки word 2003
фото 2
при добавлении ее на панель инструментов и нажатие на нее вызывается вот такое меню:
Изменение стандартной иконки word 2003
!!!!
А теперь ВНИМАНИЕ smile
ВОПРОС:

Как изменить (или добавить средствами VBA http://wordexpert.ru/forum/viewtopic.ph … 743#p4743) иконку (стандартную иконку word) так чтоб при вызове этого меню активной была вторая закладка?
фото 3
Изменение стандартной иконки word 2003

И вопрос в дополнение (не основной) как посмотреть что именно запускает уже готовая иконка (макрос или какое другое действие) если, к примеру, название и иконка (изображение) были изменены?

2

Re: Изменение стандартной иконки word 2003

конечно не красиво не зная ответа задавать вопрос, но всё же зачем это Вам надо? может есть другие решения

3

Re: Изменение стандартной иконки word 2003

Ципихович Эндрю для удобства. часто приходится вставлять из разных мест файлы с Visio в word. Утилиткой копируется путь к файлу и во второй закладке вставляет (путь). Кнопку Обзор не задействуется. сразу жмется кнопка ОК. Бывает что файлы отличаются на 1 символ - тогда недостающий символ прописывается вручную

4

Re: Изменение стандартной иконки word 2003

pobat пишет:

...чтоб при вызове этого меню активной была вторая закладка?...

У каждого диалога есть свои уникальные свойства, описанные в документации.
С помощью макроса открыть диалог "Вставка объекта" на второй вкладке можно так:

Sub A()

Dim D As Word.Dialog

    Set D = Application.Dialogs(Word.wdDialogInsertObject)
    ' Свойства диалога wdDialogInsertObject:
    ' IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
    D.Tab = 1
    D.Show

End Sub
pobat пишет:

...как посмотреть что именно запускает уже готовая иконка...

Если речь о панелях инструментов (CommandBars), то только через VBA.

Макросы под заказ и готовый пакет - mtdmacro.ru

5

Re: Изменение стандартной иконки word 2003

Вождь всенепременно благодарю)