word vba打开文档自动运行加右键菜单及4个按钮，右键菜单置顶显示，按钮调用窗体

以下是一个示例代码，可以实现打开文档自动运行、添加右键菜单和按钮调用窗体的功能：

Private Sub Document_Open()
    '文档打开时自动运行的代码
    MsgBox "欢迎使用本文档！"
End Sub

Private Sub Document_Close()
    '文档关闭时自动运行的代码
    MsgBox "感谢使用本文档！"
End Sub

Private Sub Document_New()
    '新建文档时自动运行的代码
    MsgBox "欢迎创建新文档！"
End Sub

Private Sub Document_AddCommandBarButton()
    '添加右键菜单按钮的代码
    Dim cbr As CommandBarButton
    Set cbr = Application.CommandBars.FindControl(, , "MyButton")
    If cbr Is Nothing Then
        Set cbr = Application.CommandBars("Text").Controls.Add(msoControlButton)
        With cbr
            .Caption = "My Button"
            .OnAction = "ShowForm"
            .Tag = "MyButton"
        End With
    End If
    cbr.BeginGroup = True
    cbr.Visible = True
End Sub

Private Sub ShowForm()
    '调用窗体的代码
    Form1.Show
End Sub

在代码中，`Document_Open`、`Document_Close` 和 `Document_New` 分别是文档打开、关闭和新建时自动运行的代码。`Document_AddCommandBarButton` 是添加右键菜单按钮的代码，其中 `MyButton` 是按钮的标识符，`ShowForm` 是按钮点击时调用的函数。`ShowForm` 函数是调用窗体的代码，其中 `Form1` 是窗体的名称。

要使用这些功能，需要将代码复制到 Word 的 Visual Basic 编辑器中，并将窗体添加到项目中。然后，在“开发人员”选项卡中选择“宏安全性”，将安全性设置为“低”，以便能够执行宏。最后，保存文档并打开它，就可以看到右键菜单和按钮了。