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

[sindhu2352]

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





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


End Sub

Public Sub Test_Macro()
MsgBox "I work"
ResetRightClick
CreateMacro
End Sub

Sub ResetRightClick()

Application.CommandBars("Text").Reset

End Sub










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

[macropod]

Cross-posted at: http://www.msofficeforums.com/word-vba/40593-vba-word-how-add-selected-text-into.html
Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3

[gmayor]

Also at https://social.msdn.microsoft.com/Forums/en-US/807da1d9-65ed-4f45-89f6-2b4ab18e532d/how-to-add-custom-menu-option-in-mouse-right-click-event-using-vba-word?forum=isvvba#323c6ea8-3be7-43bb-be8a-f4e64733076f :(

[macropod]

And: https://stackoverflow.com/questions/52734807/vba-word-adding-selected-text-into-right-click-menu-or-adding-right-clicked-tex