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

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

   

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".

   

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".

   

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".

   

   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 :

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é.

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

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers 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 du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones 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 / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

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

 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

• 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
• 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
• ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
• 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR

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