Hmm, if you want to number text in a single sequence, you can use the macro
below which increments and inserts the numbers into text. In order to run
the macro easily, you may want to attach it to a custom button that you can
add to any toolbar. See
http://www.gmayor.com/installing_macro.htm.
Sub CreateSeqNumber()
'(Modified version of the code at
'
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm)
Order = System. _
PrivateProfileString _
("C:\Settings.Txt", _
"MacroSettings", "Order")
If Order = "" Then
Order = 1
Else
Order = Order + 1
End If
Selection.Collapse wdCollapseStart
Selection.InsertAfter Order
System.PrivateProfileString _
("C:\Settings.Txt", _
"MacroSettings", "Order") = Order
End Sub
Note that the macro keeps track of the sequence by storing the current value
in a text file called Settings.txt stored in the root folder C:\. (You can
change the path in the code if you want the file somewhere else.)