Como salvar cada página como arquivos PDF separados em um documento do Word?
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:
- 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
- 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.
| 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. |
 |
| 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 for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!
🤖 Funcionalidades de IA do Kutools: AI Assistant / 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...) / Converter em Lote para PDF...
✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...
🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...
🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente
Melhores Ferramentas de Produtividade para Office
Kutools for Word – 100+ ferramentas para Word
- 🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
- 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
- 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!