MS Word Series: Texsword

In the previous article, I have introduced an add in called texsword. Besides using latex style to generate equation, you can also use its functionality to number your typed equation using MS Word.

The [square root button] in the texsword [add-ins] tab will produce a three columns table. The first column is for the equation, the second column is for the bookmark name and the third column for equation number.

Reset Equation Numbering

1) Press [Shift+F9] to show the field
2) Add [\r 1] in the field to reset the number to 1 or any intended number. For example {SEQ Eq \r 1} where SEQ is for sequence number and Eq is a variable used by texsword to name the equation.
3) Press [F9] to update

Add Heading To The Equation Number

1) Open texsword via open command in MS Word.
2) Press [Alt+F11] to bring up the VB Editor.
3) On the left side, double click on [Module -> texsword_equation] to bring up the codes.
4) Go to TeXsword_bookmark() subroutine and you will see codes

' Draw ()
    Selection.TypeText Text:="("
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "SEQ Eq", PreserveFormatting:=True
    Selection.TypeText Text:=")"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend

5) Change the codes as follows

' Draw ()
    Selection.TypeText Text:="("
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "STYLEREF \s ""Heading 1""", PreserveFormatting:=False
    Selection.TypeText Text:="."
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "SEQ Eq", PreserveFormatting:=True
    Selection.TypeText Text:=")"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend

The "Heading 1" can be changed to other headings when necessary.