Comment Enregistrer Un Publipostage En Pdf

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

Lorsque vous utilisez un document Microsoft Give-and-take, vous pouvez enregistrer chaque page en tant que fichiers PDF séparés un par united nations 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 folio en tant que fichiers PDF séparés en vrac avec le lawmaking VBA

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

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

ane. 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 cascade ouvrir le Microsoft Visual Basic cascade applications fenêtre.

2. dans le Microsoft Visual Basic cascade applications fenêtre, cliquez sur insérer > Module, copier ci-dessous le lawmaking VBA dans la fenêtre Module.

Lawmaking 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 Every bit String     Dim xPathStr As Variant     Dim xDictoryStr As Cord     Dim xFileDlg As FileDialog     Dim xStartPage, xEndPage As Long     Dim xStartPageStr, xEndPageStr As String     Prepare xFileDlg = Awarding.FileDialog(msoFileDialogFolderPicker)     If xFileDlg.Prove <> -1 Then         MsgBox "Please chose a valid directory", vbInformation, "Kutools for Give-and-take"         Go out Sub     Stop If     xPathStr = xFileDlg.SelectedItems(1)     xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")     xEndPageStr = InputBox("Relieve PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Discussion")     If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then         MsgBox "The enterng kickoff 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 And then         MsgBox "The showtime folio number can't be larger than finish page", vbInformation, "Kutools for Word"         Exit Sub     End If     If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) And 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, _         Fake, Imitation, wdExportCreateHeadingBookmarks, True, False, Fake     Next End Sub

3. appuie sur le F5 clé pour exécuter le code.

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

v. Dans le premier Kutools pour Discussion 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 folio de votre document, puis cliquez sur D'ACCORD. Voir capture d'écran:

Notes: Si vous souhaitez simplement enregistrer plusieurs pages en continu dans le certificate sous forme de fichiers PDF séparés tels que les pages 4, 5 et 6, veuillez saisir iv et six 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é à fifty'é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.

Outils de productivité Word recommandés

tir kutools mot onglet kutools 1180x121

coup kutools mot kutools plus onglet 1180x120

Kutools For Word - Plus de 100 fonctionnalités avancées pour Discussion, é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 fifty'ordre souhaité.
Divisez le document actuel en documents séparés selon 50'en-tête, le saut de department 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.