KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como guardar cada página como ficheiros PDF separados num documento do Word?

AutorSiluvia Data de Modificação

No Microsoft Word, pode guardar manualmente cada página como um PDF separado utilizando a funcionalidade incorporada «Guardar Como» e indicando o número da página na caixa de diálogo Opções. Contudo, se estiver a trabalhar com um documento extenso com centenas de páginas, este processo manual pode tornar-se moroso. Este artigo apresenta um método para guardar rapidamente todas as páginas como ficheiros PDF individuais.

Guarde cada página como Arquivos PDF separados em lote com código VBA

Guarde cada página como Arquivos PDF separados em lote com código VBA

Pode utilizar o código VBA abaixo para guardar automaticamente cada página de um documento do Word como um ficheiro PDF individual. Eis como proceder:

  1. Abra o documento do Word que pretende processar. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Na janela do Visual Basic, clique em «Inserir» > «Módulo» e, em seguida, cole o seguinte código VBA na janela do módulo:
    Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub
    Janela do VBA com Inserir > Módulo selecionado e código VBA copiado para a janela do Módulo
  3. Prima F5 para executar o código.
  4. Na janela Procurar que aparece, selecione uma pasta para guardar os ficheiros PDF e clique em «OK».
    Janela de navegação
  5. Na primeira caixa de diálogo do «Kutools para Word», introduza o número da página inicial e clique em «OK».
    Caixa de diálogo Kutools for Word com uma caixa de texto para introduzir o número da página inicial
  6. Na segunda caixa de diálogo «Kutools para Word», introduza o número da página final e clique em «OK».
    Segunda caixa de diálogo Kutools for Word com uma caixa de texto para introduzir o número da última página

    Nota: Por exemplo, para guardar várias páginas consecutivas — como as páginas 4, 5 e 6 — basta introduzir "4" e "6" nas duas caixas de diálogo.

Após executar o script, aceda à pasta que selecionou no passo 4 e verifique que cada página especificada foi guardada como um ficheiro PDF separado:

As páginas são divididas e guardadas como ficheiros PDF individuais
Divida facilmente um documento do Word em vários documentos
Divida facilmente um documento do Word em vários documentos com a Dividir Documentoutilidade. Em vez de copiar e colar manualmente, esta ferramenta permite-lhe dividir o seu documento com base em página,Cabeçalho 1,Quebra de Páginaou Quebra de Seção– melhorando drasticamente a eficiência.
Uma captura de ecrã do utilitário Dividir Documento a dividir um documento do Word por página
Kutools para Word: Potencie a sua experiência no Word com centenas de ferramentas práticas. Transfira já e descubra a diferença!

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA…

📘Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Separadores Kutools for Word no friso
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools