Поиск по значениям полей (Word) - VBA

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

В ворде есть такая штука как поля. Вставляет через меню или через ctrl+F9. Как правило содержит различную автонумерацию (формул, таблиц, страниц и тд.) Например для формулы это будет поле {STYLEREF 1 \s}.{ SEQ Формула \* ARABIC \s 1} значение при этом будет 2.6 например Как это значение в тексте найти (в том числе по маске) ? Если искать в тексте просто 2.6 - поле игнорируется, если искать код поля- тоже ничего не находит. Так как можно искать по кодам полей ?

Решение задачи: «Поиск по значениям полей (Word)»

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

                            Selection.Copy
t = GetClipboard()
Public Function GetClipboard() As Variant
    GetClipboard = "":On Error Resume Next
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText
End Function
                        