vba Word: How to add selected text into right click menu, or add right clicked word i

I want to add Selected text into right click menu as a .caption
here is my code

Code:

---

---

Code:

---

PublicSub 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"
        EndWith
    EndWith

   
EndSub

PublicSub Test_Macro()
    MsgBox "I work"
    ResetRightClick
    CreateMacro
EndSub

Sub ResetRightClick()
   
    Application.CommandBars("Text").Reset
       
EndSub





---

on first attempt right click menu is displayed but empty caption, and on next times it show older caption (not current selection) until the menu item is clicked
or how to add Right clicked word into right clicked menu

Cross-posted at: http://www.msofficeforums.com/word-v...text-into.html
Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq...._new_faq_item3

Also at https://social.msdn.microsoft.com/Fo...a-f4e64733076f :(

And: https://stackoverflow.com/questions/...ht-clicked-tex