locked
Números de página no word RRS feed

  • Pergunta

  • 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!

    quarta-feira, 30 de março de 2011 12:39

Todas as Respostas

  • 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
    quarta-feira, 1 de junho de 2011 15:40
  • 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
    quarta-feira, 1 de junho de 2011 16:23
  • Tenta ve ser a inpressora ja faz essa ação de numera paginas.
    quarta-feira, 1 de junho de 2011 19:53
  • Seleciona pela sua Impressora, fica mais fácil.
    Rafael Hoffmann
    quinta-feira, 2 de junho de 2011 14:38