vba Word：将选定的文本添加到右键菜单中或将右键单击的文本添加到右键菜单中

Question

我想将选定的文本作为.caption添加到右键菜单中 这是我的代码

Public Sub CreateMacro()

Application.CommandBars（“ Text”）。Reset

Dim MenuButton As CommandBarButton
With CommandBars("Text")
    Set MenuButton = .Controls.Add(msoControlButton)


    With MenuButton
        .Caption = Selection.Text




        .Style = msoButtonCaption
        .OnAction = "Test_Macro"
    End With
End With

结束子

公共Sub Test_Macro（）     MsgBox“我在工作”     ResetRightClick     CreateMacro 结束

Sub ResetRightClick（）

Application.CommandBars("Text").Reset

结束子

在第一次尝试时，会显示右键菜单，但标题为空，而在下一次，它将显示较早的标题（不是当前选择），直到单击菜单项为止 或如何在右键菜单中添加右键单词