Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
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, avec sa fonction intégrée Enregistrer sous. Toutefois, si des centaines de pages doivent être divisées et enregistrées en tant que fichiers pdf individuels, comment faire? Cet article fournit une méthode pour résoudre rapidement ce problème.

Enregistrez chaque page sous forme de fichiers pdf séparés en vrac avec le code VBA


Divisez et enregistrez chaque page d'un document en tant que nouveaux documents distincts:

Le bouton Document divisé utilité de Kutools for Excel peut vous aider à diviser facilement et enregistrer chaque page du document en cours en tant que nouveau document distinct en vrac.

  • Sélectionnez un emplacement pour enregistrer les documents fractionnés.
  • Ou sélectionner Page du Divisé par liste déroulante;
  • Cliquez OK commencer. Voir la capture d'écran:

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 30. Téléchargez et essai gratuit maintenant!


Enregistrez chaque page sous forme de 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 sous forme de fichiers pdf individuels en même temps. S'il vous plaît faire comme suit.

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

Code VBA: Enregistrez chaque page sous forme de fichiers pdf distincts simultanément 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 Feuilleter fenêtre, sélectionnez un dossier pour enregistrer les fichiers pdf et cliquez sur le OK bouton. Voir la capture d'écran:

5. En premier Kutools for 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 la seconde Kutools for Word boîte de dialogue, entrez le dernier numéro de page de votre document, puis cliquez sur D'ACCORD. Voir capture d'écran:

Note: Si vous souhaitez simplement enregistrer plusieurs pages en continu dans un document en tant que 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, accédez au dossier 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.



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.