Accéder au contenu principal

Comment enregistrer chaque page sous forme de fichiers PDF séparés dans un document Word ?

Author: Siluvia Last Modified: 2025-08-06

Dans Microsoft Word, vous pouvez manuellement enregistrer chaque page sous forme de PDF distinct en utilisant la fonctionnalité intégrée "Enregistrer sous" et en spécifiant le numéro de page dans la boîte de dialogue Options. Cependant, si vous travaillez avec un document volumineux contenant des centaines de pages, cette méthode manuelle peut être chronophage. Cet article présente une méthode pour enregistrer rapidement toutes les pages sous forme de fichiers PDF individuels.

Enregistrez chaque page sous forme de fichiers PDF distincts en masse avec du code VBA

Enregistrez chaque page sous forme de fichiers PDF distincts en masse avec du code VBA

Vous pouvez utiliser le code VBA ci-dessous pour enregistrer automatiquement chaque page d'un document Word sous forme de fichier PDF individuel. Voici comment :

  1. Ouvrez le document Word que vous souhaitez traiter. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
  2. Dans la fenêtre Visual Basic, cliquez sur "Insérer" > "Module", puis collez le code VBA suivant dans la fenêtre du module : 
    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
  3. Appuyez sur F5 pour exécuter le code.
  4. Dans la fenêtre Parcourir qui apparaît, sélectionnez un dossier pour enregistrer les fichiers PDF et cliquez sur "OK".
    Browse window
  5. Dans la première boîte de dialogue "Kutools for Word", entrez le numéro de la page de départ et cliquez sur "OK".
    Kutools for Word dialog box with a text box for entering the start page number
  6. Dans la deuxième boîte de dialogue "Kutools for Word", entrez le numéro de la page de fin et cliquez sur "OK".
    Second Kutools for Word dialog box with a text box for entering the last page number

    Remarque : Par exemple, pour enregistrer quelques pages consécutives — pages 4, 5 et 6 — il suffit d'entrer "4" et "6" dans les deux boîtes de dialogue.

Après l'exécution du script, rendez-vous dans le dossier que vous avez sélectionné à l'étape 4. Vous constaterez que chaque page spécifiée a été enregistrée sous forme de fichier PDF distinct :

Pages are split and saved as individual PDF files
Divisez facilement un document Word en plusieurs documents
Divisez facilement un document Word en plusieurs documents avec l'utilitaire Diviser le document. Au lieu de copier et coller manuellement, cet outil vous permet de diviser votre document en fonction des pages, du Titre 1, des sauts de page ou des sauts de section - améliorant ainsi considérablement l'efficacité.
A screenshot of the Split Document utility splitting a Word document by page
Kutools pour Word : Améliorez votre expérience Word avec des centaines d'outils pratiques. Téléchargez dès maintenant et constatez la différence !

Meilleurs outils de productivité pour Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!

🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...

📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents formats (PDF/TXT/DOC/HTML...)/ Conversion en lot vers PDF...

✏ Édition de contenu: Recherche et remplacement en lot dans plusieurs fichiers/ Redimensionner toutes les images/ Transposer les lignes et colonnes de tableau/ Convertir le tableau en texte...

🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...

➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...

🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...

⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...

🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous souhaitez essayer ces fonctionnalités? Téléchargez Kutools pour Word dès maintenant! 🚀
 

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools