Πώς να χωρίσετε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 5 ή n σελίδες;

Εάν έχετε ένα μεγάλο έγγραφο του Word που περιέχει εκατοντάδες σελίδες και τώρα, θα θέλατε να χωρίσετε αυτό το έγγραφο σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες. Υπάρχει γρήγορος και εύκολος τρόπος για την επίλυση αυτής της εργασίας χωρίς αντιγραφή και επικόλληση των σελίδων μία προς μία;

Διαχωρίστε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες με κώδικα VBA

Διαχωρίστε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες με μια καταπληκτική δυνατότητα

Διαχωρίστε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες με κώδικα VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Διαχωρίστε ένα έγγραφο σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες:

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

3. Μετά την επικόλληση του παραπάνω κωδικού, ακόμα στο Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Εργαλεία > αναφορές, και στο αναδυόμενο Αναφορές-Έργο πλαίσιο διαλόγου, επιλέξτε Κανονικές εκφράσεις Microsoft VBScript 5.5 επιλογή του Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και, στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Αναζήτηση φακέλου εμφανίζεται το πλαίσιο διαλόγου, επιλέξτε έναν φάκελο στον οποίο θέλετε να τοποθετήσετε τα διαχωρισμένα αρχεία, δείτε το στιγμιότυπο οθόνης:

5. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και εμφανίζεται ένα άλλο πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε τον αριθμό μέτρησης σελίδας στον οποίο θέλετε να διαχωρίσετε, δείτε το στιγμιότυπο οθόνης:

6. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, το ενεργό έγγραφο του Word χωρίζεται σε ξεχωριστά αρχεία κάθε 10 σελίδες, μπορείτε να μεταβείτε στον καθορισμένο φάκελο για να δείτε τα αποτελέσματα:

Διαχωρίστε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 10 ή n σελίδες με μια καταπληκτική δυνατότητα

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

Μετά την εγκατάσταση Kutools για το Word, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Σπλιτ, δείτε το στιγμιότυπο οθόνης:

2. Στο αναδυόμενο παράθυρο διαλόγου, ορίστε τις ακόλουθες λειτουργίες όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

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

Κάντε κλικ για λήψη του Kutools for Word και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά