Catch click event button

[Neron]

Hi all,

I was wondering...
Is it possible to "catch" a click-event on a BuildIn Offie Button? I
order to execute your own VBA-code?

e.g. I want to be able to catch the "Undo" button in order to execute
piece of macro code in stead of just "Undoing" only the last action.

Greetz,

Ber

 

[Jay Freedman]

It is possible to catch ("intercept") most built-in Word commands, as
described at
http://www.word.mvps.org/FAQs/MacrosVBA/InterceptSavePrint.htm.

In this case, the macro you need to write is named EditUndo, as in

Public Sub EditUndo()
' do your stuff here
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Neron]

Hi Jay,

Thanks for the reply, but unfortunately this is not the macro / event
hoped for.
The EditUndo-macro just intercepts the [Ctrl]+[Z] key press event, i
doesn't respond to the "Undo-button" in the Command Bar / Quick Acces
Toolbar.

I've been trying to intercept an event directly from the control, bu
unfortunately I can't seem to get this one working:

Public WithEvents m_Undo As Office.CommandBarComboBox
Public WithEvents m_Print As Office.CommandBarButton

Private Sub Document_New()
Set m_Undo = Application.CommandBars.FindControl(6, 128)
Set m_Print = Application.CommandBars.FindControl(1, 4)
End Sub

Private Sub Document_Open()
Set m_Undo = Application.CommandBars.FindControl(6, 128)
Set m_Print = Application.CommandBars.FindControl(1, 4)
End Sub

Private Sub m_Print_Click(ByVal Ctrl As Office.CommandBarButton
CancelDefault As Boolean)
Call MsgBox("I can print", vbOKOnly)
End Sub

Private Sub m_Undo_Change(ByVal Ctrl As Office.CommandBarComboBox)
Call MsgBox("I can undo", vbOKOnly)
End Sub

Intercepting the Print button works just fine, but intercepting th
Undo-button... :-(

Greetz,

Bert