Word中的右键弹出菜单也是保存在CommandBars集合中。可以通过辨识Type属性来列出这些弹出菜单。弹出菜单的Type为 msoBarTypePopup。如下为列出所有Word弹出菜单名称的代码。你可以从其中查找你所需要添加菜单项的弹出菜单的序号。
For i = 1 To CommandBars.Count
If CommandBars(i).Type = msoBarTypePopup Then
Debug.Print i & " - " & CommandBars(i).Name
End If
Next
对于添加菜单项和显示弹出菜单,请使用如下样例代码(其中47为弹出菜单的序号,您可以从上段代码中找出):
Dim oBtn As CommandBarButton
Set oBtn = CommandBars(47).Controls.Add(Type:=msoControlButton, Temporary:=False)
oBtn.Caption = "Test Button"
oBtn.OnAction = "TestBtnClick" ‘请另外添加一sub并起名为TestBtnClick用来相应新菜单项的点击事件
‘显示弹出菜单
CommandBars(47).ShowPopup
把代码写到normal.dot里每次加载就ok了