поле типа MACROBUTTON

[Ципихович Эндрю]

Имеется в Ворде поле типа MACROBUTTON, оно пользователем выделено, то есть перед тем как пользователь по нему сделает двойной щелчёк мышью для его запуска поле выделится
как узнать текст который оно отображает???
Код_выделенного_поля = ActiveDocument.Fields(Selection.Fie lds(1).Index).Code.Text
Результат_выделенного_поля = ActiveDocument.Fields(Selection.Fie lds(1).Index).Result
Текст_выделенного_поля = ActiveDocument.Fields(Selection.Fie lds(1).Index).????????

MsgBox Selection.Text не помогает, MsgBox показывает квадрат
Спасибо

[Ципихович Эндрю]

У поля MACROBUTTON в Ворде есть свойство Сообщение, как его узнать??????
Спасибо

[Aent]

ActiveDocument.Fields(...).Code.tex t для поля MACROBUTTON вернёт строчку вида
"MACROBUTTON ИмяМакроса Сообщение"
Cообщение это и есть отображаемый текст.

[Ципихович Эндрю]

конечно можно отбрасывать

Dim Код_выделенного_поля As String
Код_выделенного_поля = Trim$(ActiveDocument.Fields(Selection.Fields(1).Index).Code)

Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
reg.Global = True
'+ означает, что заменяем два, три, четыре и более пробелов подряд на один пробел
reg.Pattern = " +"
Код_выделенного_поля = Trim(reg.Replace(Код_выделенного_поля, " "))
'Debug.Print Код_выделенного_поля
'заменяем пробел, следом идущую запятую на запятую, то есть удаляем пробел перед запятой
reg.Pattern = " ,"
Код_выделенного_поля = Trim(reg.Replace(Код_выделенного_поля, ","))
'Debug.Print Код_выделенного_поля

'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set reg = Nothing

Dim Первый_пробел_в_тексте_кода_поля As Integer
Первый_пробел_в_тексте_кода_поля = InStr(Код_выделенного_поля, " ")
Код_выделенного_поля = Trim(Right$(Код_выделенного_поля, (Len(Код_выделенного_поля) - Первый_пробел_в_тексте_кода_поля)))
Первый_пробел_в_тексте_кода_поля = InStr(Код_выделенного_поля, " ")
Код_выделенного_поля = Trim(Right$(Код_выделенного_поля, (Len(Код_выделенного_поля) - Первый_пробел_в_тексте_кода_поля)))
'Debug.Print Код_выделенного_поля

думал есть метод узнать одной строкой

[Aent]

Сообщение от Ципихович Эндрю

думал есть метод узнать одной строкой

Есть

Debug.Print StrReverse(Split(StrReverse(Trim$(Selection.Fields(1).Code.Text)))(0))

В предположении, что в выделении одно поле
(И что финальные пробелы в "сообщении" можно игнорировать.

[Ципихович Эндрю]

это те же отбрасывания, ну ладно нет так нет
просто я раньше имя файла без разрешения искал путём откидывания разрешения, а потом узнал, что можно узнать напрямую
>В предположении, что в выделении одно поле
Конечно, умудриться надо два макробутона нажать вместе