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.
