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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.01.2012, 21:39   #1
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию CommandBars

Здравствуйте, какие они бывают CommandBars, в справке смотрел, только Drawing увидел, это что рисунок??
Я пользуюсь
With Application.CommandBars("Table Text")
With Application.CommandBars("Fields")
With Application.CommandBars("Text")
интерисуют другие, выложите кто знает, спасибо
Ципихович Эндрю вне форума Ответить с цитированием
Старый 04.01.2012, 22:30   #2
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Код:
Dim cmd As Application.CommandBar 

For each cmd in Application.CommandBars
   Debug.Print cmd.Name
Next cmd
В имидждате выводит список имен всех Application.CommandBars
Пименов Александр вне форума Ответить с цитированием
Старый 05.01.2012, 07:04   #3
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

в первой строке выделает cmd As Application.CommandBar, думал s добавить нужно, не тут то было
>В имидждате выводит список имен всех Application.CommandBars
разберёмся-Selection.TypeText Text:=cmd.Name & Chr$(13)
Ципихович Эндрю вне форума Ответить с цитированием
Старый 05.01.2012, 13:44   #4
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Цитата:
Сообщение от Ципихович Эндрю Посмотреть сообщение
в первой строке выделает cmd As Application.CommandBar, думал s добавить нужно, не тут то было
>В имидждате выводит список имен всех Application.CommandBars
разберёмся-Selection.TypeText Text:=cmd.Name & Chr$(13)
В первой строке надо просто
Код:
Dim cmd As CommandBar
Пименов Александр вне форума Ответить с цитированием
Старый 05.01.2012, 14:55   #5
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

Спасибо!!

Из выведенного макросом списка контекстное меню применяю:
Form Fields
Fields

'контекстное меню появляется при наведении на Forms
With Application.CommandBars("Forms") – что есть Форма в Ворде?, сорри подзабыл
Ципихович Эндрю вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Лента и CommandBars WizarD.89 Microsoft Office Excel 13 03.12.2010 18:04