2012-04-04 23 views

回答

1

你可以看一下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 

或者customizing the right-click menu

我也没有试过。

+0

谢谢。我不认为我想要尝试。其实我实际上是代表朋友问的。 – stanigator 2012-04-05 09:16:09

相关问题