Добавить поле MACROBUTTON в Ворде - VBA

Формулировка задачи:

здравствуйте, мне нужно на выделенный текст его добавить и чтобы выделенный текст был текстом поля, делаю так

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="MACROBUTTON All " & Selection.Text, PreserveFormatting:=False

ожидаю, что запускаться поле MACROBUTTON будет по макросу All - но увы этого не происходит, подскажите пожалуйста - как правильно? спасибо

Решение задачи: «Добавить поле MACROBUTTON в Ворде»

textual
                            Листинг программы 
                        

                            Sub macrobutton()
Dim s As String
    s = "All " & Selection
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldMacroButton, Text:=s, PreserveFormatting:=False
End Sub
                        