Макрос заменяющий букву "О" в тексте на формулу

Sub Макрос1()
    Dim w
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Text = "O"
        .Wrap = wdFindContinue
        .Replacement.Text = ""
        .Forward = True
        Do While .Execute = True
            Set w = .Parent.Duplicate
            With w.Fields.Add(Range:=w, Type:=wdFieldEmpty)
              .Code.Text = "eq [ЗАМЕНА]"
              .Code.Shading.BackgroundPatternColor = wdColorWhite
              .Code.HighlightColorIndex = wdWhite
            End With
        Loop
    End With
End Sub

        .ClearFormatting
        .Text = Chr(206) ' Чтобы не путаться это русская буква О

Sub Замена_текста_на_fields_формулы()
    '
    'только выделенной части текста
    '
    Dim w As Range
    Set w = Selection.Range
    With w.Find
        .ClearFormatting
        .Text = "O"
        .Replacement.Text = ""
        .Wrap = wdFindContinue
        .Forward = True
        Do While .Execute = True
            If w.Start > Selection.End Then Exit Do 'Если нужен весь текст то закоментируй строку
            With w.Fields.Add(Range:=w, Type:=wdFieldEmpty)
              .Code.Text = "eq [ЗАМЕНА]"
              .Code.Shading.BackgroundPatternColor = wdColorWhite
              .Code.HighlightColorIndex = wdWhite
            End With
        Loop
    End With
End Sub