word vba打开文档自动运行添加右键菜单

以下是一个示例代码：

Private Sub Document_Open()
    '在文档打开时运行
    Call AddContextMenu
End Sub

Sub AddContextMenu()
    '添加右键菜单项
    Dim CBar As CommandBar
    Dim CBarBtn As CommandBarButton
    
    Set CBar = Application.CommandBars("Text")
    
    '检查右键菜单项是否已经存在
    For Each CBarBtn In CBar.Controls
        If CBarBtn.Caption = "自定义菜单项" Then
            Exit Sub
        End If
    Next
    
    Set CBarBtn = CBar.Controls.Add(msoControlButton)
    With CBarBtn
        .Caption = "自定义菜单项"
        .OnAction = "CustomMenuItemAction"
    End With
End Sub

Sub CustomMenuItemAction()
    '右键菜单项的响应函数
    MsgBox "你点击了自定义菜单项！"
End Sub

将以上代码复制到 Word VBA 编辑器中，保存为宏（.dotm）文件。然后打开你想要添加右键菜单项的 Word 文档，在文档打开时自动运行该宏即可实现添加右键菜单项的功能。