Как узнать, какой макрос назначен определенной кнопке панели инструментов в Word 2003

Question

Как узнать, какой макрос назначен определенной кнопке панели инструментов в Word 2003

1701

Hauns TM 2014-02-26 в 09:08

У меня есть панель инструментов Word 2003, сделанная кем-то давно. Панель инструментов содержит множество кнопок и назначенных макросов.

До сих пор я мог устанавливать точки останова в коде VBA, чтобы выяснить, какие макросы запускаются, но для одной кнопки на панели инструментов у меня возникла проблема. Кажется, нет никакого соответствующего макроса. Когда я нажимаю на кнопку панели инструментов, Word также говорит: «Макрос не найден ...»). Моя стратегия поиска точек останова здесь не кажется выигрышной.

Я очень хорошо знаю об этом: Меню инструментов> Настройка> Щелкните правой кнопкой мыши на конкретной кнопке панели инструментов:

Tools menu > Customize > Right click on the specific toolbar button

К сожалению, это не помогает мне. Могу ли я каким-то образом увидеть свойства события обратного вызова для определенной кнопки панели инструментов? Мне нужно знать, какой макрос предназначена для запуска определенной кнопки.

1

1 ответ на вопрос

1

Accepted Answer · 2014-03-08 16:45:44

Prints out all macro names which are assigned to any menu button

Sub ReadBack_Buttons() On Error Resume Next '## Loop through every menu bar For Each bar In Application.CommandBars '## Loop through every button on the current menu bar For Each button In bar.Controls '## If a macro is assigned, print it out If button.OnAction <> "" Then Debug.Print button.Caption & " = " & button.OnAction '## Loop through every button on dropdown menus For Each subbutton In button.Controls '## If a macro is assigned, print it out If subbutton.OnAction <> "" Then Debug.Print subbutton.Caption & " = " & subbutton.OnAction Next Next Next End Sub

For a quick test, add your own custom menu with this second macro.

Sub CreateCommandBar() On Error Resume Next '## Delete the commandbar if it exists Application.CommandBars("example").Delete '## Create a new Command Bar Set bar = CommandBars.Add(Name:="example", Position:=msoBarFloating) bar.Visible = True '## Add popup menu Set menu1 = bar.Controls.Add(Type:=msoControlPopup) menu1.Caption = "My custom menu" '## Add button 1 to popup menu Set Btn2 = menu1.Controls.Add(Type:=msoControlButton) Btn2.Caption = "missing macro assigned" Btn2.OnAction = "Not_working_dummy" '## Add button 2 to popup menu Set Btn2 = menu1.Controls.Add(Type:=msoControlButton) Btn2.Caption = "Hello World" Btn2.OnAction = "Hello_world" End Sub Sub Hello_world() MsgBox "Hey, it works" End Sub

After you've executed CreateCommandBar you will see a new entry on your main menu. One with a working macro assigned and one without

enter image description here

Now, run the first macro ReadBack_Buttons and have a look at the immediate pane

missing macro assigned = Not_working_dummy Hello World = Hello_world

Как узнать, какой макрос назначен определенной кнопке панели инструментов в Word 2003

1 ответ на вопрос

Похожие вопросы