在word弹出的右键菜单中加上自定义的菜单项

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了