Comment convertir par lots plusieurs documents Word en fichiers PDF?
Il est facile pour vous de convertir un document Word en fichier PDF avec la fonction Enregistrer sous de Word. Mais si vous souhaitez convertir tous les documents Word d'un dossier en fichiers PDF séparés en même temps, comment pouvez-vous y parvenir? Cet article vous montrera un code VBA pour convertir par lots plusieurs documents Word en fichiers PDF dans Word.
Conversion par lots de plusieurs documents Word en fichiers PDF avec VBA
Convertissez par lots plusieurs documents Word en fichiers PDF avec Kutools for Word
Conversion par lots de plusieurs documents Word en fichiers PDF avec VBA
Le code VBA suivant vous aide à convertir rapidement tous les documents Word d'un dossier en fichiers PDF à la fois. Veuillez faire comme suit.
1. Dans Word, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez ci-dessous le code VBA dans la fenêtre Module.
Code VBA: convertir par lots plusieurs documents Word en fichiers PDF dans 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. appuie sur le F5 clé pour exécuter le code.
4. Une boîte de dialogue Parcourir apparaît, sélectionnez le dossier contenant les documents Word que vous allez convertir en fichiers pdf, puis cliquez sur le bouton OK .
Ensuite, tous les documents Word du dossier sélectionné sont convertis en fichiers PDF séparés à la fois. Voir la capture d'écran:
Convertissez par lots plusieurs documents Word en fichiers PDF avec Kutools for Word
Si le code VBA est difficile à gérer, vous pouvez essayer le Convertir des documents utilité de Kutools for Word résoudre le problème.
Kutools for Word : Avec plus de 100 compléments Word pratiques, libre d'essayer sans limitation dans 60 jours.
1. Cliquez Kutools Plus > Doc / Docx. Voir la capture d'écran:
2. dans le Convertisseur de format de document fenêtre, vous devez procéder comme suit:
3. Ensuite, une boîte de dialogue apparaît pour vous dire combien de documents ont été convertis avec succès, cliquez sur le OK et fermez le Convertisseur de format de document fenêtre.
Désormais, tous les documents au format .docx sont convertis en fichiers pdf.
Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion