Makra ve Wordu sice nerad, ale mohlo by to splnit zadání.

Option Explicit

Sub TiskniCislujKopie()
Dim objCC As ContentControl
Dim PocKopii As String
Dim Kopie As Long

PocKopii = InputBox("Kolik kopií si" & Chr(13) & Chr(10) & "přeješ vytisknout?", "Tisk dokumentu", 1)
If PocKopii = "0" Or PocKopii = "" Then End
PocKopii = CLng(PocKopii)

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
With Selection
    .Delete Unit:=wdCharacter, Count:=20
    .EndKey Unit:=wdLine
    .TypeParagraph
    .TypeText Text:=vbTab

    Set objCC = .Range.ContentControls.Add(wdContentControlText)
End With

For Kopie = 1 To PocKopii
    objCC.Range.Text = "Kopie číslo: " & Kopie
    ' ActiveDocument.PrintPreview
    ActiveDocument.PrintOut
Next Kopie

objCC.Range.Delete
objCC.Delete
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub