Макрос вставки формулы Word 2010

Sub test123()
    cnt = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To 5
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c надчеркиванием и индексом  Num                 
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c индексом Num
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub

Sub test123()
    Картинок = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To Картинок
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'здесь нужно вставить x c вехним подчеркиванием и индексом Num
        Selection.Delete
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
        Selection.TypeText Text:="EQ  \x \to(X)\d\ba4 (\s\do4(" & Num & "))"
        'Selection.Characters(1).Font.Size = 14
        Selection.Fields.Update
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/x.png" Then
            Selection.Delete
            Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
            Selection.TypeText Text:="EQ \d\fo3(X)\s\do4(" & Num & ")"
            'Selection.Characters(1).Font.Size = 14
            Selection.Fields.Update
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub