Вставка уравнения на базе существующего

[konstantin-morenko]

Sub InsEq()

    Selection.Style = ActiveDocument.Styles("Уравнение")
    
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.TypeText Text:=vbTab
    
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=vbTab
    
    Selection.TypeText Text:="("
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False, Text:="seq ch \c"
    Selection.TypeText Text:="."
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False, Text:="seq eq \n"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False, Text:="seq ceq \n \h"
    Selection.TypeText Text:=")"
    
    Call RefreshFields
End Sub