Изменение кода полей EQ в документе MS Word

      Dim txtF As String = "\f(2 · 0,1 · 10\s\up(3);46,364)"
      With wordApp.Selection
        .Fields.Add(Range:=.Range, Text:=txtF, Type:=WdFieldType.wdFieldFormula, PreserveFormatting:=False)
      End With

Dim txtF As String = "\f(2 · 0,1 · 10\s\up(3);46,364)"
Dim oFld As Field
With wordApp.Selection
    oFld = .Fields.Add(Range:=.Range, Text:=txtF, Type:=WdFieldType.wdFieldFormula, PreserveFormatting:=False)
    oFld.ShowCodes = True
    With .Find
        .ClearAllFuzzyOptions
        .ClearFormatting
        .ClearHitHighlight
        .Text = "\up(3)"
        .Replacement.Text = "^&"
        .Replacement.Font.Size = oFld.Result.Font.Size - 3
        .Execute Replace:=WdReplace.wdReplaceAll
    End With 
    oFld.ShowCodes = False
End With

    If DocWord.Range.Find.Execute(TextBox1.Text) = True Then
      Dim txtF As String = "\f(2 · 0,1 · 10\s\up6(3);46,364)"
      Dim oFld As Field
      With wordApp.Selection
        .Find.Execute(TextBox1.Text) 'ищем в тексте метку вместо которой нужно вставить поле
        oFld = .Fields.Add(Range:=.Range, Text:=txtF, Type:=WdFieldType.wdFieldFormula, PreserveFormatting:=False) 'вставка поля
        oFld.ShowCodes = True 'показать код поля
        oFld.Select() 'выделяем поле
       With .Find()
          .ClearFormatting() 'очищаем форматирование
          .Text = "\s\up6(3)" 'искомый текст
          .Replacement.ClearFormatting() 'очищаем форматирование предыдущего поиска
          .Replacement.Text = "\s\up6(3)" 'текст для замены
          .Replacement.Font.Size = 8 'шрифт заменяемого текста
          .Execute(Replace:=Word.WdReplace.wdReplaceAll) 'заменить всё
        End With
        oFld.ShowCodes = False 'показать занчение поля
        .EndOf() 'снимаем выделение
      End With
    Else
      MsgBox("Текст не найден")
    End If