Πώς να χωρίσετε ένα έγγραφο του Word και να το αποθηκεύσετε ως ξεχωριστό αρχείο PDF;
Στο Word, μπορείτε να αποθηκεύσετε ολόκληρο το έγγραφο σε ένα αρχείο PDF, αλλά έχετε προσπαθήσει ποτέ να διαχωρίσετε το έγγραφο και, στη συνέχεια, να αποθηκεύσετε τις σελίδες ως ξεχωριστό αρχείο PDF; Σε αυτό το άρθρο, θα παρουσιάσω τις μεθόδους για την επίλυση αυτής της εργασίας γρήγορα.
Διαχωρίστε ένα έγγραφο του Word και αποθηκεύστε ως ξεχωριστό αρχείο PDF με VBA
Διαχωρίστε ένα έγγραφο του Word και αποθηκεύστε ως ξεχωριστό αρχείο PDF με VBA
Εδώ ο κώδικας VBA μπορεί να σας βοηθήσει να χωρίσετε απευθείας ένα έγγραφο του Word ανά σελίδες και στη συνέχεια να το αποθηκεύσετε ως ξεχωριστά αρχεία PDF.
1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης παράθυρο.
VBA: Αποθηκεύστε το Word ως ξεχωριστό PDF
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
Dim I As Long
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xStart, xEnd As Integer
On Error GoTo lbl
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1)
xStart = CInt(InputBox("Start Page", "KuTools for Word"))
xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
If xStart <= xEnd Then
For I = xStart To xEnd
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False
Next
End If
Exit Sub
lbl:
MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub
3. Τύπος F5 κλειδί, στο παράθυρο διαλόγου Αναζήτηση, επιλέξτε ένα φάκελο για να τοποθετήσετε τα αρχεία PDF.
4. κλικ OKκαι μετά εισαγάγετε τους αριθμούς σελίδων που θέλετε να διαχωρίσετε την αρχή και το τέλος.
5. κλικ OK. Τώρα οι σελίδες έχουν αποθηκευτεί ως ξεχωριστά αρχεία PDF.
Διαχωρίστε ένα έγγραφο του Word για να διαχωρίσετε αρχεία ανά σελίδες/επικεφαλίδα1/ σπάστε και, στη συνέχεια, αποθηκεύστε το ως PDF
Εάν δεν είστε εξοικειωμένοι με τον κώδικα VBA, μπορείτε να δοκιμάσετε να χρησιμοποιήσετε ένα πρόσθετο εργαλείο – Kutools για το Word, της Σπλιτ η δυνατότητα μπορεί να σας βοηθήσει να χωρίσετε ένα έγγραφο του Word σε σελίδες με βάση αλλαγές σελίδας, αριθμούς σελίδων, επικεφαλίδα1, αλλαγές ενοτήτων, κάθε ντη σελίδα και προσαρμοσμένο αριθμό σελίδας που καθορίζετε και, στη συνέχεια, εφαρμόστε το Μετατροπέας μορφής εγγράφου για ομαδική μετατροπή των διαιρεμένων εγγράφων του Word σε PDF.
Μετά την εγκατάσταση Kutools για Word, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για το Word Now!)
1. Ενεργοποιήστε το έγγραφο του Word που θέλετε να μετατρέψετε σε διαχωρισμό, κάντε κλικ Kutools Plus > Σπλιτ.
2. Στο Διαχωρισμός εγγράφου διαλόγου, επιλέξτε τον κανόνα διαχωρισμού όπως χρειάζεστε στην ενότητα Διαίρεση κατά. Στη συνέχεια, καθορίστε τη θέση αποθήκευσης και το πρόθεμα διαχωρισμού του αρχείου εγγράφου. Κάντε κλικ Ok.
Στο Διαχωρισμός από ενότητα, παρέχει 6 τύπους διαχωρισμού για εσάς. Για περισσότερες λεπτομέρειες σχετικά με κάθε τύπο διαχωρισμού, επισκεφθείτε τη διεύθυνση εισαγωγή χαρακτηριστικών.
Τώρα τα χωρισμένα έγγραφα έχουν αποθηκευτεί στην καθορισμένη θέση.
3. Μετά τον διαχωρισμό του εγγράφου, κάντε κλικ Kutools Plus > Έγγραφο / Docx.
4. Στο Μετατροπέας μορφής εγγράφου διαλόγου, επιλέξτε Μετατροπή Docx σε PDF μορφή Μετατροπέας μορφής αναπτυσσόμενη λίστα, κάντε κλικ στο σύμβολο συν για να προσθέσετε αρχεία ή φακέλους που περιέχουν τα έγγραφα που θέλετε να μετατρέψετε σε PDF και, στη συνέχεια, καθορίστε άλλες ρυθμίσεις όπως χρειάζεστε (στην προεπιλογή, αποθηκεύει τα αρχεία PDF στον φάκελο προέλευσης, μπορείτε να το αλλάξετε ). Κάντε κλικ Ok.
Τώρα τα έγγραφα του Word έχουν μετατραπεί σε αρχεία PDF.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...