No artigo abaixo, queremos compartilhar com você 2 maneiras rápidas de imprimir em lote páginas específicas de vários documentos do Word.
A impressão de arquivos em lote é definitivamente uma bênção para muitos de nós. Economiza tempo abrindo cada arquivo e também alguns cliques. Agora, e quanto à impressão em lote de páginas específicas de vários documentos do Word? Por exemplo, seria útil imprimir a primeira página de vários arquivos ao mesmo tempo. Além disso, para imprimir as páginas “Conteúdo” ou “Referências” de vários arquivos também são necessários. Então podemos fazer isso?
Sim, a resposta é curta. E o melhor é que não precisamos de suplementos de terceiros.
Método 1: Imprima em lote a primeira página de vários documentos
- Para começar, armazene todos os documentos de destino no mesmo diretório.
- Em seguida, clique na guia “Desenvolvedor” e “Visual Basic” para abrir o editor VBA. Ou pressione “Alt+F11” em vez disso.
- Em seguida, clique em “Normal” e depois em “Inserir”.
- Escolha "Módulo" no menu suspenso.
- Agora haverá um novo módulo. Clique duas vezes nele para exibir o espaço de edição.
- Cole a macro no módulo:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
- Em seguida, clique no botão "Executar" ou pressione "F5".
- Na caixa que aparece, digite o caminho da pasta onde você guarda os arquivos, como “E:\palavra de teste\teste\". Não se esqueça do último “\”. Clique em “OK” para prosseguir.
É só aguardar a impressão.
Método 2: Imprima em lote páginas específicas de vários documentos
Para imprimir páginas específicas de vários documentos, você pode usar a seguinte macro.
Instale e execute a macro com as mesmas etapas do método 1, mas substitua por esta macro:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
Dim strPages As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
Da mesma forma, insira o caminho da pasta na primeira caixa. Em seguida, insira o número da página na segunda. Para imprimir páginas consecutivas, use um hífen para separar os números inicial e final, como "1-3". Para imprimir páginas não consecutivas, use uma vírgula como separador, como "1, 3, 5". Por exemplo, "1, 3-6" significa imprimir as páginas 1, 3, 4, 5 e 6.
Ferramenta de reparo que você precisa ter
Acontece que o Word para de responder de repente, deixando seu documento travado. A possibilidade de herdar um arquivo corrompido de um palavra danificada. Às vezes, a consequência é esmagadora demais para suportar. Você pode se culpar por não fazer backups. Mas a coisa mais importante que você precisa fazer é obter um produto de recuperação para recuperar os dados imediatamente.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Excel corrompido e pdf reparar produtos de software. Para mais informações visite www.datanumen.com