compile error with checkabort

[savvy]

I get a compile error in msword: method or data member not found

I tried checking the box for Excel Object Library in tools references but cannot debug code:



Sub abc()
Dim restart As Boolean
restart = True
While restart
SendKeys "{NUMLOCK}{ADD}"
Dim key As String
key = ""
While key = ""
DoEvents
If Application.CheckAbort = True Then Exit Sub
If Not Application.CommandBars.GetPressedMso("FilePrint") Is Nothing Then Exit Sub
key = Application.CommandBars.FindControl(ID:=30002).acc Child(1).Caption
Wend
If key = vbCr Then
Call xyz
restart = False
ElseIf key = "{NUMLOCK}{ADD}" Then
'Do nothing, restart loop
Else
restart = False
End If
Wend
End Sub

Not sure how to fix the error.

[Guessed]

I don't know the aims of your macro but I would remove this line because that doesn't exist in Word.
If Application.CheckAbort = True Then Exit Sub

Then the GetPressedMso only works with ToggleButtons eg Bold. I don't see FilePrint as being a toggle button. As far as I can tell, it will return a Boolean value and can't be Nothing so I get a type error with that line if it points at a togglebutton.

Maybe you should explain what exactly you are trying to do. You won't find many people that like to use SendKeys short of giving up on all the alternatives first.