Макрос поиска и замены букв в MS Word с верхним подчеркиванием

Dim i As Long
For i = 1 To ActiveDocument.Characters.Count
If ActiveDocument.Characters(i).Bold = -1 Then
ActiveDocument.Characters(i).Bold = 0
ActiveDocument.Characters(i).Select
'****
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="EQ \x \to("
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=")"
    Selection.Fields.ToggleShowCodes
    Selection.MoveDown Unit:=wdLine, Count:=1
'****
End If
Next i

Sub main()
Dim i As Long
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i).Bold = True Then
ActiveDocument.Words(i).Bold = False
ActiveDocument.Words(i).Select
 
   With Selection
      If Right(Selection.Text, 1) = Chr(32) Then
         .MoveLeft wdCharacter, 1, wdExtend
      End If
   End With
 
'****
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="EQ \x \to("
    Selection.MoveRight Unit:=wdCharacter, Count:=Selection.Words(i).Characters.Count - 1
    Selection.TypeText Text:=")"
    Selection.Fields.ToggleShowCodes
'****
End If
Next i
End Sub

 Selection.MoveRight Unit:=wdCharacter, Count:=Selection.Words(i).Characters.Count - 1

Selection.MoveRight Unit:=wdCharacter, Count:=Selection.Words(i).Characters.Count - 1

Sub main()
 
'Создаём область в оперативной памяти под названием "i"
'и говорим ПК, что будем хранить там целые числа (есть еще десятичные)
Dim i As Integer
 
'Говорим ПК, что в i будем помещать цифры от 1 до количества слов в документе
'и просматриваем все слова в документе
For i = 1 To ActiveDocument.Words.Count
'Если слово оказывается жирным, то
If ActiveDocument.Words(i).Bold = True Then
'превращаем его в нежирное и
ActiveDocument.Words(i).Bold = False
'выделяем (подобно тому, как ты выделяешь слово 2 щелчком мыши
ActiveDocument.Words(i).Select
 
'Если ты сейчас дважды щёлкнешь по слову, то увидишь, что вместе
'со словом выделился и правый пробел. Мы убираем из выделения его:
With Selection
      If Right(Selection.Text, 1) = Chr(32) Then
         .MoveLeft wdCharacter, 1, wdExtend
      End If
   End With
 
'Затем в выделенную область вставляем поле (Ctrl + F9)
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
'Помещаем в поля текст "EQ \x \to(здесь наш бывший жирный вектор
    Selection.TypeText Text:="EQ \x \to("
'Смещаемся вправо на наш вектор
    Selection.MoveRight Unit:=wdWord, Count:=1
'И закрываем его скобкой
    Selection.TypeText Text:=")"
'Скрываем коды полей
    Selection.Fields.ToggleShowCodes
 
End If
Next i
End Sub