2012-04-04 5 views

Antwort

1

können Sie betrachten WindowBeforeRightClick

Public WithEvents appWord as Word.Application 

Private Sub appWord_WindowBeforeRightClick _ 
(ByVal Sel As Selection, Cancel As Boolean) 
Dim intResponse As Integer 

intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _ 
& "Continue with operation on this selection?", _ 
vbYesNo) 
If intResponse = vbNo Then Cancel = True 
End Sub 

Oder customizing the right-click menu

ich entweder nicht versucht haben.

+0

Danke. Ich glaube nicht, dass ich es auch versuchen möchte. Ich frage tatsächlich im Auftrag eines Freundes. – stanigator

Verwandte Themen