Sub FilePrint()
  Dim CopiesCount As Long
  Dim sInputStr As String
  While Not IsNumeric(sInputStr)
    sInputStr = InputBox("Сколько бланков анкет печатать?", "Распечатка бланков", sInputStr)
    If Len(sInputStr) = 0 Then Exit Sub
  Wend
  With ActiveDocument.Fields(1)
    .Code.Text = Mid(.Code.Text, 1, InStr(.Code.Text, "\r") + 2) & "1"
  End With
  For CopiesCount = 1 To Val(sInputStr)
    With ActiveDocument
      .PrintOut Copies:=1
      With .Fields(1)
        .Code.Text = Mid(.Code.Text, 1, InStr(.Code.Text, "\r") + 2) & Val(Trim(Mid(.Code.Text, InStr(.Code.Text, "\r") + 2))) + 1
        .Update
      End With
    End With
  Next
End Sub