Skip to main content

Como salvar cada página como arquivos PDF separados em um documento do Word?

Author: Siluvia Last Modified: 2025-08-06

No Microsoft Word, você pode salvar manualmente cada página como um PDF separado usando o recurso "Salvar Como" e especificando o número da página na caixa de diálogo Opções. No entanto, se você estiver trabalhando com um documento grande que possui centenas de páginas, fazer isso manualmente pode ser demorado. Este artigo apresenta um método para salvar rapidamente todas as páginas como arquivos PDF individuais.

Salvar cada página como arquivos PDF separados em massa com código VBA

Salvar cada página como arquivos PDF separados em massa com código VBA

Você pode usar o código VBA abaixo para salvar automaticamente cada página de um documento do Word como um arquivo PDF individual. Aqui está como:

  1. Abra o documento do Word que deseja processar. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Na janela do Visual Basic, clique em "Inserir" > "Módulo" e 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
    VBA window with Insert > Module selected and VBA code copied into the Module window
  3. Pressione F5 para executar o código.
  4. Na janela Procurar que aparece, selecione uma pasta para salvar os arquivos PDF e clique em "OK".
    Browse window
  5. Na primeira caixa de diálogo "Kutools for Word", insira o número da página inicial e clique em "OK".
    Kutools for Word dialog box with a text box for entering the start page number
  6. Na segunda caixa de diálogo "Kutools for Word", insira o número da página final e clique em "OK".
    Second Kutools for Word dialog box with a text box for entering the last page number

    Nota: Por exemplo, para salvar algumas páginas consecutivas — páginas 4, 5 e 6 — basta inserir "4" e "6" nas duas caixas de diálogo.

Depois que o script for executado, vá para a pasta selecionada na etapa 4. Você verá que cada página especificada foi salva como um arquivo PDF separado.

Pages are split and saved as individual PDF files
Divida facilmente um documento do Word em vários documentos
Divida facilmente um documento do Word em vários documentos com a ferramenta Dividir Documento. Em vez de copiar e colar manualmente, esta ferramenta permite que você divida seu documento com base em páginas, Título 1, quebras de página ou quebras de seção - melhorando drasticamente a eficiência.
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: Melhore sua experiência no Word com centenas de ferramentas práticas. Baixe agora e veja a diferença!

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: 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 do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

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

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools