Inserting equation numbers macro
- by krzych
I want to insert equations into Word 2010. I'm inserting the center-aligned equations and then want to add a number to the same line, which will be aligned to the right hand side of the page.
I'm having a problem with setting the alignment of the number to the right with equation aligned to center.
My code is currently only inserting the number without the correct alignment:
Sub EqnNumber()
Selection.TypeText Text:="("
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="STYLEREF \s ""Naglówek 1"" ", PreserveFormatting:=True
Selection.TypeText Text:="."
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="SEQ Rysunek \* ARABIC \s 1", PreserveFormatting:=True
Selection.TypeText Text:=")"
End Sub