KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment enregistrer chaque page d’un document Word en tant que fichiers PDF distincts ?

AuteurSiluvia Date de modification

Dans Microsoft Word, vous pouvez enregistrer manuellement chaque page en tant que PDF distinct grâce à la fonction intégrée « Enregistrer sous », en précisant le numéro de page dans la boîte de dialogue Options. Toutefois, avec un document volumineux de plusieurs centaines de pages, cette approche devient rapidement fastidieuse. Cet article vous présente une méthode efficace pour exporter instantanément toutes les pages en fichiers PDF individuels.

Enregistrer chaque page sous forme de Fichiers PDF distincts en masse à l’aide d’un code VBA

Enregistrer chaque page sous forme de Fichiers PDF distincts en masse à l’aide d’un code VBA

Vous pouvez utiliser le code VBA ci-dessous pour enregistrer automatiquement chaque page d’un document Word en tant que fichiers PDF individuels. Voici la procédure :

  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 « Insertion » > « 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
    Fenêtre VBA avec Insertion > Module sélectionné et code VBA copié dans la fenêtre du module
  3. Appuyez sur F5 pour exécuter le code.
  4. Dans la fenêtre Parcourir qui s’affiche, sélectionnez un dossier pour enregistrer les fichiers PDF, puis cliquez sur « OK ».
    Fenêtre de navigation
  5. Dans la première boîte de dialogue « Kutools pour Word », saisissez le numéro de la page de départ, puis cliquez sur « OK ».
    Boîte de dialogue Kutools for Word avec une zone de texte pour saisir le numéro de la première page
  6. Dans la deuxième boîte de dialogue « Kutools pour Word », saisissez le numéro de la page de fin, puis cliquez sur « OK ».
    Deuxième boîte de dialogue Kutools for Word avec une zone de texte pour saisir le numéro de la dernière page

    Remarque : Par exemple, pour enregistrer plusieurs pages consécutives — les pages 4, 5 et 6 —, saisissez simplement « 4 » et « 6 » dans les deux champs.

Une fois l’exécution du script terminée, 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 fichiers PDF distincts :

Les pages sont divisées et enregistrées sous forme de fichiers PDF individuels
Divisez facilement un document Word en plusieurs documents
Divisez facilement un document Word en plusieurs documents avec l’Diviser le documentutilitaire. Plutôt que de copier et coller manuellement, cet outil vous permet de fractionner votre document selon les pages,titres 1,Saut de pageou Saut de section– ce qui améliore considérablement l’efficacité.
Capture d’écran de l’utilitaire Fractionner le document divisant un document Word par page
Kutools pour Word : Sublimez votre expérience Word avec des centaines d’outils pratiques. Téléchargez dès maintenant et découvrez la différence !

Meilleurs outils de productivité Office

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

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

Onglets Kutools for Word dans le ruban
 
 

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

  • Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

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

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

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools