Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

Author Siluvia Last modified

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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

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

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

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

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

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