Η διαχείριση ενός μεγάλου εγγράφου του Word μπορεί μερικές φορές να απαιτεί από εσάς να εξαγάγετε συγκεκριμένες σελίδες για ξεχωριστή αναθεώρηση ή διανομή. Είτε χρειάζεστε μόνο μία σελίδα, ένα εύρος σελίδων ή για να χωρίσετε ολόκληρο το έγγραφο με βάση συγκεκριμένα κριτήρια, το Microsoft Word προσφέρει διάφορους τρόπους για να το πετύχετε. Ας βουτήξουμε σε τέσσερις αποτελεσματικές μεθόδους για τον διαχωρισμό και την εξαγωγή σελίδων από τα έγγραφα του Word.

Εξαγωγή συγκεκριμένων σελίδων / τρέχουσας σελίδας από το Word

• Με δυνατότητα αντιγραφής και επικόλλησης - μη αυτόματα
• Με δυνατότητα εκτύπωσης σε PDF - αποθηκεύστε τις εξαγόμενες σελίδες σε PDF
• Με κώδικα VBA - αποθηκεύστε τις εξαγόμενες σελίδες σε έναν συγκεκριμένο φάκελο

Διαχωρίστε ολόκληρα τα έγγραφα του Word σε ξεχωριστά αρχεία με βάση Σελίδες, Επικεφαλίδες, Διακοπές

Εξαγωγή συγκεκριμένων σελίδων / τρέχουσας σελίδας από το Word

Αυτός ο οδηγός παρέχει μια λεπτομερή επισκόπηση τριών αποτελεσματικών τεχνικών για την εξαγωγή είτε συγκεκριμένων σελίδων είτε της τρέχουσας σελίδας από το έγγραφό σας.

Εξαγωγή σελίδων με δυνατότητα αντιγραφής και επικόλλησης – μη αυτόματα

Ο απλούστερος τρόπος εξαγωγής συγκεκριμένων σελίδων ή περιεχομένου από ένα έγγραφο του Word είναι χρησιμοποιώντας τη λειτουργία αντιγραφής και επικόλλησης.

Βήμα 1: Επιλέξτε τα περιεχόμενα που θέλετε να εξαγάγετε

Τοποθετήστε τον κέρσορα στο μπροστινό μέρος των περιεχομένων που θέλετε να αντιγράψετε, μετά μετακινηθείτε προς τα κάτω στο τέλος του περιεχομένου και κρατήστε πατημένο το Shift πλήκτρο, κάντε κλικ στο τέλος των περιεχομένων.

Βήμα 2: Αντιγράψτε τα επιλεγμένα περιεχόμενα

Κάντε δεξί κλικ στο επιλεγμένο περιεχόμενο και επιλέξτε αντίγραφο, ή απλά πατήστε Ctrl + C

Βήμα 3: Επικολλήστε σε ένα νέο έγγραφο

Ανοίξτε ένα νέο έγγραφο του Word και επικολλήστε το περιεχόμενο χρησιμοποιώντας Ctrl + V.

Βήμα 4: Αποθηκεύστε το νέο έγγραφο

Αποθηκεύστε το νέο έγγραφό σας κάνοντας κλικ Αρχεία > Αποθήκευση ως.

Εξαγωγή σελίδων με δυνατότητα εκτύπωσης σε PDF - αποθηκεύστε τις εξαγόμενες σελίδες σε PDF

Ένας άλλος τρόπος εξαγωγής σελίδων είναι να τις εκτυπώσετε σε PDF. Αυτή η μέθοδος είναι χρήσιμη όταν χρειάζεται να κάνετε κοινή χρήση ή αποθήκευση των εξαγόμενων σελίδων σε μια ευρέως αποδεκτή μορφή.

Βήμα 1: Μεταβείτε στο μενού Εκτύπωση

Με ανοιχτό το έγγραφο, μεταβείτε στο Αρχεία > .

Βήμα 2: Επιλέξτε Microsoft Print σε PDF

Στο Εκτυπωτής αναπτυσσόμενο μενού, επιλέξτε Εκτύπωση της Microsoft σε PDF.

Βήμα 3: Καθορίστε το εύρος σελίδων

Στις ρυθμίσεις, επιλέξτε την περιοχή εκτύπωσης που θέλετε:

• Εκτύπωση όλων των σελίδων: Εκτυπώστε όλες τις σελίδες του εγγράφου.

• Επιλογή εκτύπωσης: Εκτυπώστε την επιλογή, εάν δεν επιλέξετε κάποιο εύρος, αυτή η επιλογή δεν μπορεί να χρησιμοποιηθεί.

• Εκτύπωση τρέχουσας σελίδας: Εκτύπωση τρέχουσας σελίδας.

• Προσαρμοσμένη εκτύπωση: Εκτυπώστε προσαρμοσμένες σειρές σελίδων όπως χρειάζεστε. Όταν επιλέγετε αυτή την επιλογή, το Σελίδα Το πλαίσιο κειμένου εμφανίζεται για να πληκτρολογήσετε τον αριθμό της σελίδας για εκτύπωση.

  

Βήμα 4: Εκτύπωση

Πατήστε και επιλέξτε μια τοποθεσία για να αποθηκεύσετε το PDF σας. Οι καθορισμένες σελίδες θα αποθηκευτούν ως νέο έγγραφο PDF.

Εξαγωγή σελίδων με κώδικα VBA - αποθηκεύστε τις εξαγόμενες σελίδες σε έναν συγκεκριμένο φάκελο

Για χρήστες που αισθάνονται άνετα με το VBA, η χρήση μιας δέσμης ενεργειών μπορεί να αυτοματοποιήσει τη διαδικασία εξαγωγής, ιδιαίτερα χρήσιμη για μεγάλα έγγραφα.

Βήμα 1: Πατήστε τα πλήκτρα Alt + F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VBA

Βήμα 2: Εισαγάγετε μια νέα μονάδα

Πατήστε Κύριο θέμα καρτέλα στην ανοιχτή Microsoft Visual Basic για εφαρμογές παράθυρο και μετά επιλέξτε Μονάδα μέτρησης.

Βήμα 3: Εισάγετε τον κωδικό

Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο Module.

Κώδικας: Εξαγωγή εύρους σελίδων σε νέο αρχείο σε φάκελο

Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
    Dim objNewDoc As Document
    Dim objDoc As Document
    Dim strFolder As String
    Dim strFileName As String
    Dim startPage As Long
    Dim endPage As Long
    Dim startRange As Range
    Dim endRange As Range
    
    ' Initialize
    Set objDoc = ActiveDocument
    
    ' Specify the folder path and file name here
    strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
    strFileName = "ExtractedPages" ' Example file name
    
    ' Specify start and end pages here
    startPage = 3
    endPage = 4
    
    ' Find the range of the specified pages
    With objDoc
        ' Go to the start of the start page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
        Set startRange = Selection.Range
        
        ' Go to the start of the page after the end page, to get the complete end page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set endRange = Selection.Range
        
        ' Define the range from start to end page
        Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
       
        
    End With
    
    ' Copy the defined range
    startRange.Copy
    
    ' Open a new document to paste the selection
    Set objNewDoc = Documents.Add
    objNewDoc.Content.Paste
    
    ' Save the new document
    objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
    objNewDoc.Close False
    
    ' Clean up
    Set objNewDoc = Nothing
    Set objDoc = Nothing
    Set startRange = Nothing
    Set endRange = Nothing
    
    MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub
 

Βήμα 4: Κάντε κλικ στο κουμπί εκτέλεσης ή πατήστε το πλήκτρο F5 για να εκτελέσετε τον κωδικό

Μετά την εκτέλεση του κώδικα, εμφανίζεται ένα παράθυρο διαλόγου που σας ενημερώνει ότι οι σελίδες έχουν εξαχθεί, κάντε κλικ OK να το κλείσει.

Βήμα 5: Μεταβείτε στο φάκελο για να ελέγξετε εάν οι σελίδες έχουν εξαχθεί σωστά

Διαχωρίστε ολόκληρα τα έγγραφα του Word σε ξεχωριστά αρχεία με βάση Σελίδες, Επικεφαλίδες, Διακοπές

Εάν θέλετε να εξαγάγετε σελίδες για να διαχωρίσετε αρχεία κατά Επικεφαλίδες 1, Αλλαγές σελίδας, Αλλαγές ενοτήτων ή συγκεκριμένες σελίδες, Διαχωρισμός εγγράφου χαρακτηριστικό του Kutools για το Word θα είναι καλός βοηθός.

Βήμα 1: Ενεργοποιήστε τη δυνατότητα Split Document

Πατήστε Kutools Plus > Σπλιτ για να ενεργοποιήσετε τη λειτουργία.

Βήμα 2: Προσαρμόστε το διαχωρισμό σας

1. Διαχωρισμός από: Επιλέξτε το κριτήριο με το οποίο θέλετε να χωρίσετε.

2. Σελίδα: Αν επιλέξετε Εξατομικευμένο στο Διαχωρισμός από αναπτυσσόμενη λίστα, θα πρέπει να πληκτρολογήσετε τους αριθμούς σελίδων σε αυτό το πλαίσιο κειμένου.

3. Αποθήκευση σε: Περιηγηθείτε και επιλέξτε ένα φάκελο για να εντοπίσετε τα χωρισμένα έγγραφα.

4. Πρόθεμα εγγράφου: Πληκτρολογήστε πρόθεμα για την ονομασία των διαχωρισμένων εγγράφων.

5. OK: Κάντε κλικ για να ολοκληρώσετε τη διαίρεση.

   

Βήμα 3: Μεταβείτε στο φάκελο και ελέγξτε τα χωρισμένα έγγραφα

Κάθε μέθοδος προσφέρει μια λύση για διαφορετικές ανάγκες: μη αυτόματη αντιγραφή για απλές εξαγωγές, εκτύπωση σε PDF για κοινή χρήση συγκεκριμένων σελίδων, VBA για αυτόματη εξαγωγή και διαχωρισμός εγγράφων για οργάνωση εκτεταμένων εγγράφων. Ακολουθώντας αυτά τα βήματα, μπορείτε να διαχειριστείτε τα έγγραφά σας πιο αποτελεσματικά και να προσαρμόσετε το περιεχόμενο στις συγκεκριμένες απαιτήσεις σας.

Για πρόσθετες μετασχηματιστικές στρατηγικές του Word που μπορούν να βελτιώσουν σημαντικά τη διαχείριση των δεδομένων σας, εξερευνήστε περαιτέρω εδώ..