View Single Post
 
Old 10-10-2018, 12:14 AM
digitalsindh@gmail.com digitalsindh@gmail.com is offline Windows 10 Office 2013
Novice
 
Join Date: Oct 2018
Posts: 1
digitalsindh@gmail.com is on a distinguished road
Wink vba Word: How to add selected text into right click menu, or add right clicked word in menu

I want to add Selected text into right click menu as a .caption
here is my 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
Reply With Quote