Πώς να αποθηκεύσετε κάθε σελίδα ως ξεχωριστά αρχεία pdf σε ένα έγγραφο του Word;
Κατά τη χρήση του εγγράφου Microsoft Word, μπορείτε να αποθηκεύσετε κάθε σελίδα ως ξεχωριστά αρχεία pdf ένα προς ένα με τη ενσωματωμένη λειτουργία Αποθήκευση ως. Ωστόσο, εάν υπάρχουν εκατοντάδες σελίδες πρέπει να χωριστούν και να αποθηκευτούν ως μεμονωμένα αρχεία pdf, πώς μπορείτε να το κάνετε; Αυτό το άρθρο παρέχει μέθοδο για την γρήγορη επίλυση αυτού του προβλήματος.
Αποθηκεύστε κάθε σελίδα ως ξεχωριστά αρχεία pdf μαζικά με κώδικα VBA
Αποθηκεύστε κάθε σελίδα ως ξεχωριστά αρχεία pdf μαζικά με κώδικα VBA
Ο παρακάτω κώδικας VBA σάς βοηθά να αποθηκεύετε γρήγορα κάθε σελίδα σε ένα έγγραφο ως μεμονωμένα αρχεία pdf ταυτόχρονα. Κάντε τα εξής:
1. Ανοίξτε το έγγραφο που θα αποθηκεύσετε κάθε σελίδα ή συγκεκριμένες σελίδες ως αρχεία pdf και, στη συνέχεια, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Αποθηκεύστε κάθε σελίδα ως ξεχωριστά αρχεία pdf ταυτόχρονα σε ένα έγγραφο του 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. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.
4. Στο Αναζήτηση παράθυρο, επιλέξτε ένα φάκελο για να αποθηκεύσετε τα αρχεία pdf και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
5. Στην πρώτη Kutools για το Word πλαίσιο διαλόγου, εισαγάγετε τον αριθμό της αρχικής σελίδας του εγγράφου σας στο πλαίσιο κειμένου και κάντε κλικ στο OK.
6. Στο δεύτερο Kutools για το Word πλαίσιο διαλόγου, εισαγάγετε τον τελευταίο αριθμό σελίδας του εγγράφου σας και, στη συνέχεια, κάντε κλικ στο Εντάξει. Δείτε screenshot:
Note: Εάν θέλετε απλώς να αποθηκεύσετε πολλές συνεχείς σελίδες σε έγγραφο ως ξεχωριστά αρχεία pdf όπως οι σελίδες 4, 5 και 6, εισαγάγετε 4 και 6 ξεχωριστά στα παραπάνω δύο παράθυρα διαλόγου.
Αφού εκτελέσετε τον κώδικα, μεταβείτε στον καθορισμένο φάκελο που επιλέξατε στο βήμα 4, μπορείτε να δείτε ότι όλες οι σελίδες χωρίζονται και αποθηκεύονται ως μεμονωμένα αρχεία pdf όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Διαχωρίστε και αποθηκεύστε κάθε σελίδα ενός εγγράφου ως ξεχωριστά νέα έγγραφα:
Η Διαχωρισμός εγγράφου χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να χωρίσετε και να αποθηκεύσετε εύκολα κάθε σελίδα του τρέχοντος εγγράφου ως ξεχωριστό νέο έγγραφο μαζικά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Κατεβάστε και δοκιμάστε το τώρα! (60- ημέρα δωρεάν διαδρομή)
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...