Поиск в Ворде

Корочи, дело такое... Я хз, тут Господа-Магистры может знают как по-хитрому сделать через "Section" или "content" или ещё как. Или можно комменты внести в область поиска... В общем, если кто знает как реализовать такой поиск иначе - я буду сам рад узнать другое решение.
Я подписал таким образом - находит часть слова, затем расширяем область и, если расширенная область = искомому слову, то вот оно перед нами.

Sub БлаблаБоженькаДайБабла()
Dim myRange As Range
Dim ComRange As Range
Set myRange = ActiveDocument.Content
myRange.Find.Text = "бло"
myRange.Find.Wrap = wdFindContinue
Do While myRange.Find.Execute = True
    myRange.Select
    Set ComRange = Selection.Range.Characters.First
        ComRange.SetRange Start:=ComRange.Start, End:=Selection.Characters.Last.End
        Selection.Collapse direction:=wdCollapseEnd
        Selection.Expand Unit:=wdWord
        stext = Selection.Range.Text
        If stext = "блоков" Then
            MsgBox "Busted!"
        Else
            MsgBox "Фигню какую-то нашли... сам посмотри ---> " & stext
        End If
    Selection.Collapse direction:=wdCollapseEnd
Loop
End Sub

Не, не вариант, у меня текст вообще без пробелов, только иероглифы, следовательно область расширяется аж до конца абзаца.
Рабочим вариантом был поиск с постановочными знаками, но в офисе эта технология сделана очень коряво, уж лучше бы реализовали нормальные регулярные выражения, как Javascript, Python и других языках. Даже регулярки в макросах на низком уровне, пробовал и с ними ничего не ищет.

В подстановочных знаках невозможно задать {0;1} для знака перед ним, а @ является знакозаменителем 0 или более предыдущего знака, рабочим вариантом было подстановка * в промежутки перед символами, находил все, но проблема в том, что не ограничивается жадность.

Также заметил, что есть сделать Debug.Print ActiveDocument.Content.Text в местах примечаний нет никаких знаков, а регулярки все равно не видят искомый текст.

Думал временно убирать примечания с записью информации о них, то есть .Scope.Start, .Scope.End и .Text, выполнить поиск и вернуть все на место, но проблема в том, что при выполнении вставки .Comments.Add ..., меняются координаты Start, End  диапазона, так как якорь примечания учитывается.

Есть вариант вызывать скрытое окошко поиска, которое обычно открывается пользователем, заполнять поля и отлавливать результаты, но не ясно как добраться до этого окна.

В общем суть такова:

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

Итак, конкретная задача:
1. Дано:
Текст -
!根据主油泵压增的不同配置不同扬程的高压电动油泵。对于0.97MPa主油泵（出口油压），启动高压电动油泵后，高压油压力应不超过0.95MPa，如超过此压力，可利用高压电动油泵后的截止阀来调整
Условия - В тексте, после предыдущей итерации, вставлены примечания для терминов 电动 и 泵.
2. Найти:
Макросом найти 电动油泵, проверить есть ли у найденного диапазона примечания, удалить их если они полностью входят в диапазон и поставить новое примечание с текстом «电动油泵 – Электроприводной маслонасос»

П.С.
В редакторе VBA русской версии офиса не возможно набрать какие либо символы, кроме английского и русского (с путями также фигня), поэтому перед запуском макроса искомый текст выделяется вручную и затем берется через selection.text.

Прощу прощенья, в предыщий пост приложил малость не тот файл

Задача довольно популярная, так как всяких скрытых символов, мешающих поиску стандартными методами, в документах Word масса. Думаю, удобнее всего искать в Document.Content. То есть в строке. Останется увязать найденное с областью документа. Еще, при поиске в строке, вы сможете использовать полноценные регулярные выражения. С помощью объекта VBScript.RegExp. Получится что-то типа:

Sub A()
Dim R As Range, S As String
    Set R = ActiveDocument.Range ' область поиска
    S = "текст" ' искомый текст
    i = InStr(1, R.Text, S, vbBinaryCompare)
    If i <= 0 Then Exit Sub
    If RangeOfText(R, i, Len(S)) <> True Then Exit Sub
    R.Select
End Sub

Function RangeOfText(tRange As Range, tStart As Long, tLength As Long) As Boolean
' сузить область до фрагмента ее же текста
' tRange - вход: начальная область
' tStart - вход: позиция начала текста (в tRange.Text)
' tpLength - вход: длина текста (в tRange.Text)
' возврат: True при успехе
...