vba Word: Добавление выделенного текста в контекстное меню или добавление контекстного текста в контекстное меню - PullRequest
Новая
       34

vba Word: Добавление выделенного текста в контекстное меню или добавление контекстного текста в контекстное меню

0 голосов
/ 10 октября 2018

Я хочу добавить выделенный текст в контекстное меню в качестве .caption вот мой код 

Public Sub CreateMacro()

Application.CommandBars ("Текст"). Сброс 

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

Public Sub Test_Macro () MsgBox "Я работаю" ResetRightClick CreateMacro End Sub

Sub ResetRightClick () 

Application.CommandBars("Text").Reset

End Sub

на первомМеню попытки щелчка правой кнопкой мыши отображается, но пустой заголовок, и в следующий раз оно отображает более старый заголовок (не текущий выбор) до тех пор, пока не будет выбран элемент меню или как добавить слово, вызываемое правой кнопкой мыши, в меню, вызываемое правой кнопкой мыши

...