Hilary B. Miller, Esq.(legal@compuserve.com) posted this in the WOPR Lounge:

Here's a macro I use to produce Bates-numbered stickers for legal document production. You can modify it to suit your needs:

Public Sub MAIN()
Dim IPinLab
Dim Lab$
Dim Start$
Dim LabErr
Dim StartErr
Dim n
Dim a$
TryAgain:
WordBasic.BeginDialog 370, 110, "Make Bates Labels"
If IPinLab = 1 Then WordBasic.TextBox 232, 44, 89, 18, "NumStart"
WordBasic.Text 63, 14, 152, 13, "Starting &Number?"
WordBasic.TextBox 232, 14, 89, 18, "NumStart"
WordBasic.Text 63, 46, 131, 13, "How &Many?"
If IPinLab = 0 Then WordBasic.TextBox 232, 44, 89, 18, "NumLab"
WordBasic.OKButton 90, 76, 88, 22
WordBasic.CancelButton 187, 76, 88, 22
WordBasic.EndDialog
Dim Dlg As Object: Set Dlg = WordBasic.CurValues.UserDialog
Dlg.NumLab = Lab$: Dlg.NumStart = Start$
On Error GoTo -1: On Error GoTo Bye
WordBasic.Dialog.UserDialog Dlg
On Error GoTo -1: On Error GoTo 0
Lab$ = Dlg.NumLab: Start$ = Dlg.NumStart
LabErr = 0: StartErr = 0
If WordBasic.Val(Lab$) < 1 And Lab$ "" Then IPinLab = 1: LabErr = 1
If Lab$ = "" And WordBasic.SelType() = 1 Then Lab$ = "1"
If WordBasic.Val(Start$) < 1 Or Start$ = "" Or (WordBasic.Val(Start$) + WordBasic.Val(Lab$)) > 999999 Then IPinLab = 0: StartErr = 1
If StartErr = 1 Then WordBasic.MsgBox "The starting number must be greater than 0 and maximum number must no more than 999999.": GoTo TryAgain
If LabErr = 1 Then WordBasic.MsgBox "The number of labels must be greater than 0.": GoTo TryAgain
WordBasic.StartOfDocument
For n = WordBasic.Val(Start$) To WordBasic.Val(Start$) + WordBasic.Val(Lab$)
a$ = Str(WordBasic.Int(n / 100000) Mod 10) + Str(WordBasic.Int(n / 10000) Mod 10) + Str(WordBasic.Int(n / 1000) Mod 10) + Str(WordBasic.Int(n / 100) Mod 10) + Str(WordBasic.Int(n / 10) Mod 10) + Str(n Mod 10)
WordBasic.Style "Bates"
WordBasic.Insert a$
WordBasic.InsertPara
WordBasic.Style "SecondLine"
WordBasic.Insert "Hilary B. Miller, Esq. "
WordBasic.InsertDateTime DateTimePic:="M/d/yy", InsertAsField:=1
WordBasic.NextCell
Next n
Bye:
End Sub

Feel free to email me or call (203-861-6262) if I can help you with it.

HM