Цитата

Это просто.
Берем Word 95 (там Word Basic), PageMaker и пишем програмку:

Sub MAIN
DDETerminateAll
Chan = DDEInitiate("PageMaker", "")
DDEExecute Chan, "NewStorySized 10 10 30 20"'координаты для блока цифр 
DDEExecute Chan, "TextEnter " + Chr$(34) + "0000" + Chr$(34)
For x = 1 To 999
    Cifra$ = LTrim$(Str$(x))
    Zeros$ = Left$("0000000", 4 - Len(Cifra$))'4 - количество цифр в строке, например: 0079
    DDEExecute Chan, "Select 15 15"
    DDEExecute Chan, "TextEdit"
    DDEExecute Chan, "SelectAll"
    DDEExecute Chan, "TextEnter " + Chr$(34) + Zeros$ + Cifra$ + Chr$(34)
    DDEExecute Chan, "Print 1 1"
Next
DDETerminateAll
End Sub

Тоже самое можно написать в Word 97-2003, но там синтакс другой.
Все можно написать не выходя из PageMakera:

NewStorySized 10 10 30 20
TextEnter "0000"
Loop x = 1, 999
  Cifra = Quote(x)
  Zeros = "000"
  If x > 10
    Zeros = "00"
  EndIf
  If x > 100
    Zeros = "0"
  EndIf
  Select 15 15
  TextEdit
  SelectAll
  TextEnter Zeros + Cifra
  Print 1, 1
EndLoop

Создаешь документ со всеми необходимыми рисунками назначаешь шрифт, кегль и выравнивание по умолчанию и запускаешь програмку.
Word 95 весом 5 Мб, могу выслать на мыло.