☰

如何从 Word 右键菜单中删除命令

tag-icon • tag-icon microsoft-word vba microsoft-office-2021
如何从 Word 右键菜单中删除命令

我在 Microsoft Word 2021 文本右键菜单中有四个命令，翻译、朗读、链接和新评论，我永远不会使用这些命令，只是浪费空间。我该如何删除它们？我找到了添加命令的代码，我不明白，但它有效。这就是我将小写命令添加到文本右键单击的方法。类似的东西也可以删除命令吗？

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:="lowerCase")
 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
 End If
bye:
End Sub

答案1

为此，您可以使用 Visual Basic for Applications (VBA) 自定义 Microsoft Word 中的上下文菜单。以下是如何使用 VBA 从文本右键菜单中删除“翻译”、“朗读”、“链接”和“新建注释”命令的示例：

打开 Microsoft Word 并按“Alt + F11”打开 VBA 编辑器。

在 VBA 编辑器中，单击顶部菜单中的“插入”，然后选择“模块”以插入新模块。

将以下 VBA 代码复制并粘贴到模块窗口中：

Sub RemoveCommandsFromContextMenu()
    ' Remove "Translate" command
    CommandBars("Text").Controls("Translate").Delete
    
    ' Remove "Read Aloud" command
    CommandBars("Text").Controls("Speak").Delete
    
    ' Remove "Link" command
    CommandBars("Text").Controls("Hyperlink").Delete
    
    ' Remove "New Comment" command
    CommandBars("Text").Controls("NewComment").Delete

End Sub

单击右上角的“X”按钮或按“Alt + Q”关闭 VBA 编辑器。

按“Alt+F8”打开“宏”对话框。

从宏列表中选择“RemoveCommandsFromContextMenu”，然后单击“运行”。

上面提供的 VBA 代码将从 Microsoft Word 的右键单击上下文菜单中删除“翻译”、“大声朗读”、“链接”和“新注释”命令。

此外，Microsoft 可能会在未来的更新中更改其软件或功能，因此此处提供的信息可能会过时或发生变化。

相关内容