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