Números de página no word

Question

Olá!

gostaria de saber se há como imprimir 100 cópias de um documento do word, que tem apenas uma página, e numerar as páginas impressas de 1 a 100 automaticamente.

Vlw!

Answer 1

Minha sugestão:

No seu modelo de uma página, crie um cabeçalho com o campo número da página. Copie e cole seu texto no mesmo Documento 100 vezes. Seria um simples Ctrl+C, e segurar o Ctrl+V até perceber que chegou-se à 100ª página.

 

Atenção: tome cuidado para não deslocar as linhas do texto enquanto cola texto nas outras páginas. Você terá que achar uma posição adequada para começar a pressionar o Ctrl+V para que isso não ocorra.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Uma alternativa é você criar um campo (Ctrl+Shift+F9) , escrever REF contador dentro dele e usar o código:

Sub Impressão()
  Dim n As Long
  
  With ActiveDocument
    For n = 1 To 100
      .Variables("contador") = n
      AtualizarCampos
      .PrintOut
      DoEvents
    Next n
  End With

End Sub
Sub AtualizarCampos()

  Dim pRange As Word.Range
  Dim pAlerts As String
  Dim doc As Document
  
  pAlerts = Application.DisplayAlerts
  Application.DisplayAlerts = wdAlertsNone
  
  For Each pRange In ActiveDocument.StoryRanges
    Do
      pRange.Fields.Update
      Set pRange = pRange.NextStoryRange
    Loop Until pRange Is Nothing
  Next
  Application.DisplayAlerts = pAlerts

End Sub

Se quiser saber mais sobre campos, veja: http://www.ambienteoffice.com.br/word/indicadores_e_campos/

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 3

Tenta ve ser a inpressora ja faz essa ação de numera paginas.

Answer 4

Seleciona pela sua Impressora, fica mais fácil.

---

Rafael Hoffmann