Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment convertir par lots plusieurs documents Word en fichiers pdf?

Il est facile pour vous de convertir un document Word en un 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 une fois, comment y parvenir? Cet article va vous montrer un code VBA pour convertir par lots plusieurs documents Word en fichiers PDF dans Word.

Lot de convertir plusieurs documents Word en fichiers PDF avec VBA

Convertissez par lots plusieurs documents Word en fichiers PDF avec Kutools for Word


Convertissez facilement par lots plusieurs documents Word en fichiers PDF dans Word:

Le Convertisseur de format de document utilité de Kutools for Excel peut vous aider à convertir rapidement tous les documents au format .docx d'un dossier spécifié en fichiers pdf. Voir la capture d'écran:

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 30. Téléchargez et essai gratuit maintenant!


Lot de convertir 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. Veuillez faire comme suit.

1. Dans Word, appuyez sur le bouton 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 sous 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. Veuillez sélectionner le dossier contenant les documents Word à 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 que de simples compléments Word 100, gratuit pour essayer sans limitation dans 30 jours.

1. Cliquez Kutools Plus > Doc / Docx. Voir la capture d'écran:

2. dans le Convertisseur de format de document fenêtre, vous devez faire comme suit:

2.1) Sélectionnez le dossier contenant les documents que vous allez convertir en PDF au format Dossier de fichier source section;

2.2 Sélectionnez Convertir docx en pdf du Format Convertir la liste déroulante;

2.3) Par défaut, le Chemin de destination identique à la source la case est cochée. Si vous souhaitez placer tous les fichiers PDF convertis dans le même dossier, laissez cette option sélectionnée.

Si vous voulez séparer les fichiers pdf des documents sources, vous devez décocher la case Chemin de destination identique à la source et sélectionnez un nouveau dossier pour enregistrer les fichiers pdf dans le répertoire. Ajouter à la boîte;

2.4) Cliquez sur le Start bouton. Voir la capture d'écran:

3. Une boîte de dialogue apparaît pour vous indiquer le nombre de documents convertis avec succès. Cliquez sur le bouton OK bouton 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 voulez avoir un essai gratuit de cet utilitaire, allez à télécharger gratuitement le logiciel d'abord, puis allez appliquer l'opération selon les étapes ci-dessus.



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Stefan · 2 months ago
    Hi there,


    is there an easy way to adjust the VBA Code so that the Documents are convertet to .txt-Files?
  • To post as a guest, your comment is unpublished.
    Sammy · 3 months ago
    Is there any way to have the file name taken from the text of the document?
  • To post as a guest, your comment is unpublished.
    Marzio · 4 months ago
    VBA if i try to convert file that contains macros the macro swith to open file and ends without close file.
  • To post as a guest, your comment is unpublished.
    michaelwaung · 5 months ago
    So nice blog, Thanks for sharing this blog. It Has so useful information for users. I liked this information so much.
    Hope you keep sharing such kind of information convert word doc to html