使用VB在word添加删除右键菜单

看向前方

已于 2024-04-26 20:11:08 修改

阅读量388

点赞数 2

文章标签： word c# 服务器

于 2024-04-26 14:55:51 首次发布

本人目前就职于烽火通信，从事云计算产品架构设计相关工作。技术交流请联系:xiaoding@fiberhome.com

本文链接：https://blog.csdn.net/ssdxiao0/article/details/138219045

版权

本文介绍了如何在MicrosoftWord中使用VB脚本控制右键菜单，包括添加自定义按钮（如lowerCase）以及通过对象ID删除多余菜单项。作者提供了添加新按钮和通过ID删除的具体代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在word中如何清理右键多余的菜单，
可以写VB脚本来处理。

其中 CommandBars(“Text”) 就是获取了右键菜单。

这是一个如何添加和如何删除按钮的示例

Public Sub AutoExec()
 Dim cb As CommandBar
 Dim ctl As CommandBarButton
 On Error GoTo bye
 
 CustomizationContext = NormalTemplate
 Set cb = CommandBars("Text")
 Set ctl = cb.FindControl(Tag:="lower Case")
 If ctl Is Nothing Then
  Set ctl = cb.Controls.Add(Type:=msoControlButton, _
  Before:=9, Temporary:=True)
  
  With ctl
 .Caption = "lower Case"
 .Tag = "lower Case"
 .FaceId = 947
 .OnAction = "lowerCase"
  End With
Else
  cb.Controls("lower Case").Delete
  
  
 End If
bye:
End Sub

但是实际中，由于对各种空间对象了解不多，所以发现如果要删除对象，最好是获取到对象的ID。
下面就是通过获取对象id后，然后删除掉多余的菜单

Public Sub AutoExec()
 Dim cb As CommandBar
 Dim ctl As CommandBarButton
 
 On Error GoTo bye
 
 CustomizationContext = NormalTemplate
 Set cb = CommandBars("Text")
 For Each cmd In cb.Controls
  Debug.Print cmd.Caption; cmd.ID
 Next
 'cb.FindControl(ID:=1).Delete


bye:
End Sub