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

Author: Siluvia Last Modified: 2025-06-04

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

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:

Abra o documento do Word que deseja processar. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

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

Pressione F5 para executar o código.
Na janela Procurar que aparece, selecione uma pasta para salvar os arquivos PDF e clique em "OK".
Na primeira caixa de diálogo "Kutools for Word", insira o número da página inicial e clique em "OK".
Na segunda caixa de diálogo "Kutools for Word", insira o número da página final e clique em "OK".
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 Office

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 (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: 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 Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine 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 Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

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