Πώς να αποθηκεύσετε την τρέχουσα ή κάθε σελίδα ως ξεχωριστό έγγραφο του Word;
Εάν υπάρχουν πολλές σελίδες στο έγγραφο του Word, τώρα, πρέπει απλώς να αποθηκεύσετε μόνο μία τρέχουσα σελίδα ως νέο αρχείο Word. Κανονικά, μπορείτε να αντιγράψετε και να επικολλήσετε τα τρέχοντα δεδομένα σελίδας σε ένα νέο αρχείο Word και, στη συνέχεια, να τα αποθηκεύσετε. Όμως, σε αυτό το άρθρο θα μιλήσω για το πώς να αποθηκεύσετε την τρέχουσα ή κάθε σελίδα ως ξεχωριστά έγγραφα από ένα αρχείο Word.
Αποθηκεύστε την τρέχουσα σελίδα ως νέο έγγραφο Word με κωδικό VBA
Αποθηκεύστε κάθε σελίδα ως ξεχωριστά έγγραφα του Word με το Kutools για το Word
Αποθηκεύστε την τρέχουσα σελίδα ως νέο έγγραφο Word με κωδικό VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αποθηκεύσετε ένα τρέχον περιεχόμενο σελίδας σε ένα νέο αρχείο Word, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.
Κωδικός VBA: Αποθηκεύστε την τρέχουσα σελίδα ως νέο έγγραφο του Word:
Sub SaveCurrentPageAsANewDoc()
Dim xDoc As Document
Dim xNewDoc As Document
Dim xFileName As String
Dim xFolderPath As Variant
Dim xDlg As FileDialog
Set xDoc = ActiveDocument
xFileName = InputBox("Enter file name here: ", "KuTools for Word")
If xFileName = "" Then Exit Sub
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolderPath = xDlg.SelectedItems(1)
xDoc.Bookmarks("\Page").Range.Select
Selection.Copy
Set xNewDoc = Documents.Add
Selection.Paste
xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
xNewDoc.Close
End If
End Sub
3. Και μετά, πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό, στο αναδυόμενο παράθυρο διαλόγου, εισαγάγετε ένα όνομα για το νέο αρχείο, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί και στο δεύτερο αναδυόμενο παράθυρο, επιλέξτε έναν φάκελο για την έξοδο του νέου αρχείου, δείτε το στιγμιότυπο οθόνης:
5. Κλίκ OK κουμπί, το τρέχον περιεχόμενο της σελίδας έχει αποθηκευτεί ως νέο αρχείο Word, μπορείτε να μεταβείτε στο φάκελο για να δείτε το αποτέλεσμα.
Αποθηκεύστε κάθε σελίδα ως ξεχωριστά έγγραφα του Word με το Kutools για το Word
Εάν θέλετε να αποθηκεύσετε κάθε σελίδα ολόκληρου του εγγράφου ως ξεχωριστά αρχεία, το Kutools για το Word'S Σπλιτ λειτουργία μπορεί να σας κάνει μια χάρη.
Kutools για το Word : με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. |
Μετά την εγκατάσταση Kutools για το Word, κάντε τα παρακάτω βήματα:
1. Κλίκ Kutools Plus > Σπλιτ, δείτε το στιγμιότυπο οθόνης:
2. Στην Διαχωρισμός εγγράφου κουτί διαλόγου:
(1.) Επιλέξτε Σελίδα από το Διαχωρισμός από αναπτυσσόμενη λίστα
(1.) Κάντε κλικ κουμπί για να επιλέξετε ένα φάκελο για την έξοδο των νέων αρχείων.
(2.) Και, στη συνέχεια, καθορίστε το πρόθεμα για τα νέα αποθηκευμένα αρχεία όπως χρειάζεστε.
3. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OK κουμπί για να ξεκινήσει ο διαχωρισμός και, στη συνέχεια, όλες οι σελίδες στο έγγραφο του Word έχουν αποθηκευτεί ως ξεχωριστά αρχεία στον συγκεκριμένο φάκελο, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του Kutools for Word και δωρεάν δοκιμή τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...