Como converter em lote vários documentos do Word em arquivos PDF?
É fácil converter um documento do Word em um arquivo PDF com a função Salvar como do Word. Mas se você deseja converter todos os documentos do Word em uma pasta em arquivos PDF separados de uma só vez, como você pode fazer isso? Este artigo mostrará um código VBA para converter em lote vários documentos do Word em arquivos PDF no Word.
Converta em lote vários documentos do Word em arquivos PDF com VBA
Converta em lote vários documentos do Word em arquivos PDF com o Kutools for Word
Converta em lote vários documentos do Word em arquivos PDF com VBA
O código VBA a seguir ajuda a converter rapidamente todos os documentos do Word em uma pasta em arquivos PDF de uma só vez. Faça o seguinte.
1. No Word, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe copie o código VBA abaixo para a janela Módulo.
Código VBA: converter em lote vários documentos do Word em arquivos PDF no Word
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3. aperte o F5 chave para executar o código.
4. Uma caixa de diálogo de navegação aparecerá, selecione a pasta que contém os documentos do Word que você converterá em arquivos PDF e clique no botão OK botão.
Em seguida, todos os documentos do Word na pasta selecionada são convertidos em arquivos PDF separados de uma vez. Veja a imagem:
Converta em lote vários documentos do Word em arquivos PDF com o Kutools for Word
Se o código VBA for difícil de manusear, você pode tentar o Converter documentos utilidade de Kutools for Word para resolver o problema.
Kutools for Word : Com mais de 100 suplementos úteis do Word, livre para tentar sem limitação em 60 dias.
1. Clique Kutools Plus > Doc / Docx. Veja a imagem:
2. No Conversor de formato de documento janela, você precisa fazer o seguinte:
3. Em seguida, uma caixa de diálogo aparecerá para informar quantos documentos foram convertidos com sucesso, clique no OK botão e feche o Conversor de formato de documento janela.
Agora, todos os documentos no formato .docx são convertidos em arquivos PDF.
Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...