Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

Comment enregistrer chaque page en tant que fichiers PDF séparés dans un document Word?

Lorsque vous utilisez un document Microsoft Word, vous pouvez enregistrer chaque page en tant que fichiers PDF séparés un par un grâce à sa fonction Enregistrer sous intégrée. Cependant, si des centaines de pages doivent être divisées et enregistrées en tant que fichiers PDF individuels, comment pouvez-vous faire? Cet article fournit une méthode pour résoudre rapidement ce problème.

Enregistrez chaque page en tant que fichiers PDF séparés en vrac avec le code VBA


Enregistrez chaque page en tant que fichiers PDF séparés en vrac avec le code VBA

Le code VBA ci-dessous vous aide à enregistrer rapidement chaque page d'un document en tant que fichiers PDF individuels en même temps. Veuillez faire comme suit.

1. Ouvrez le document que vous allez enregistrer chaque page ou pages spécifiques sous forme de fichiers pdf, puis 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, copier ci-dessous le code VBA dans la fenêtre Module.

Code VBA: enregistrez chaque page en tant que fichiers PDF séparés en même temps dans un document Word

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. appuie sur le F5 clé pour exécuter le code.

4. dans le DECOUVREZ fenêtre, sélectionnez un dossier pour enregistrer les fichiers pdf et cliquez sur le OK bouton. Voir la capture d'écran:

5. Dans le premier Kutools pour Word boîte de dialogue, entrez le numéro de page de démarrage de votre document dans la zone de texte et cliquez sur OK.

6. Dans le second Kutools pour Word boîte de dialogue, entrez le dernier numéro de page de votre document, puis cliquez sur D'ACCORD. Voir capture d'écran:

Notes: Si vous souhaitez simplement enregistrer plusieurs pages en continu dans le document sous forme de fichiers PDF séparés tels que les pages 4, 5 et 6, veuillez saisir 4 et 6 séparément dans les deux boîtes de dialogue ci-dessus.

Après avoir exécuté le code, veuillez accéder au dossier spécifié que vous avez sélectionné à l'étape 4, vous pouvez voir que toutes les pages sont divisées et enregistrées en tant que fichiers PDF individuels, comme illustré ci-dessous.


Divisez et enregistrez chaque page d'un document en tant que nouveaux documents séparés:

La Diviser le document utilité de Kutools pour Excel peut vous aider à diviser et enregistrer facilement chaque page du document actuel en tant que nouveau document distinct en bloc, comme illustré ci-dessous. Téléchargez et essayez-le maintenant! (Parcours gratuit de 60 jours)


Outils de productivité Word recommandés

 

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

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest
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.
    blabla · 2 months ago

    What can I do to save each page with a reference in the document and not by page name?
  • To post as a guest, your comment is unpublished.
    Colette · 6 months ago
    Beautiful! Thank you, your instructions are easy to follow and spot. You have saved us a lot of time.

  • To post as a guest, your comment is unpublished.
    Meyer · 1 years ago
    What can I do to save each page with a reference in the document and not by page name?
  • To post as a guest, your comment is unpublished.
    franco.gagliano@gmail.com · 2 years ago
    Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a generare i file singoli in pdf partendo da un file word di stampa unione. Vorrei chiedere se è possibile nominare i singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizzato per stampa unione. Sarebbe il massimo. Grazie mille
  • To post as a guest, your comment is unpublished.
    Bharadwaj · 2 years ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.