Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να χωρίσετε το έγγραφο σε πολλά έγγραφα με λέξη;

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

Διαχωρίστε το έγγραφο του Word με καθορισμένο απομεμακρυστή με VBA

Διαχωρισμός εγγράφου Word ανά σελίδα με VBA

Διαχωρίστε το έγγραφο του Word κατά τίτλο / σελίδα / διαίρεση / διάλειμμα σελίδας χρησιμοποιώντας το Kutools για το Word

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

Συγκρίνοντας με το διαχωρισμό ενός εγγράφου του Word με την αντιγραφή και την επικόλληση, το Kutools για το Word θα σας διευκολύνει να δουλέψετε και να βελτιώσετε δραματικά την απόδοση της εργασίας σας με τη λειτουργία Split, η οποία μπορεί γρήγορα να διαχωρίσει το τρέχον έγγραφο Word που ανοίγει σε πολλαπλάσια ανά σελίδα, διάλειμμα ή από την επικεφαλίδα 1 όπως χρειάζεστε. Κάντε κλικ για δωρεάν δοκιμαστική περίοδο 60-ημέρα!
διαχωρισμός εγγράφων ανά σελίδα

Kutools για το Word: Προσθέστε τις νέες προηγμένες λειτουργίες 100 στο Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Καρτέλα Office: Επιτρέπω Επεξεργασία με καρτέλες και περιήγηση στο Office, Ακριβώς όπως Chrome, Firefox, IE 8 / 9 / 10.
Κλασικό μενού για το Office: Φέρτε παλιά εμφάνιση του Office 2003 Πίσω σε Office 2007, 2010, 2013, 2016 και 2019.

arrow μπλε δεξιά φούσκα Διαχωρίστε το έγγραφο του Word με καθορισμένο απομεμακρυστή με VBA

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

1. Τύπος Alt + F11 κλειδιά για να ανοίξετε το παράθυρο της Microsoft Visual Basic για εφαρμογή.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια επικολλήστε τον κώδικα VBA στο νέο παράθυρο της λειτουργικής μονάδας ανοίγματος.

VBA: Διαχωρισμός εγγράφου Word σε πολλαπλά έγγραφα από Delimiter

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

3. Στη συνέχεια κάντε κλικ στο κουμπί τρέξιμο ή πατήστε το πλήκτρο F5 για να εφαρμόσετε το VBA.

4. Στο αναδυόμενο έγγραφο Microsoft Word, κάντε κλικ στο κουμπί Ναι για να προχωρήσετε.

Σημείωση:
(1) Βεβαιωθείτε ότι έχετε προσθέσει τον απομεμακρυστή σας ως τον ίδιο "///" στην υπο-δοκιμή στο έγγραφο μεταξύ κάθε τμήματος κειμένου που θέλετε να διαχωρίσετε. Επίσης, μπορείτε να αλλάξετε "///" σε οποιουσδήποτε οριοθέτες για να ανταποκριθούν στις ανάγκες σας.
(2) Μπορείτε να αλλάξετε τα έγγραφα "Σημειώσεις" στο δευτερεύον τεστ που ταιριάζει στις ανάγκες σας.
(3) Και τα έγγραφα διαίρεσης θα αποθηκευτούν στην ίδια θέση με το αρχικό αρχείο.
(4) Δεν χρειάζεται να προσθέσετε τον απομεμακρυστή στο τέλος του αρχικού αρχείου, αν το κάνετε, θα υπάρχει ένα κενό έγγραφο μετά το διαχωρισμό.


arrow μπλε δεξιά φούσκα Διαχωρισμός εγγράφου Word ανά σελίδα με VBA

Εδώ είναι ένα άλλο VBA για να σας βοηθήσει να διαχωρίσετε γρήγορα ένα έγγραφο του Word σε πολλαπλάσιες ανά σελίδα στο Word. Κάντε τα εξής:

1. Τύπος Alt + F11 κλειδιά για να ανοίξετε το παράθυρο της Microsoft Visual Basic για εφαρμογή.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια επικολλήστε τον κώδικα VBA στο νέο παράθυρο της λειτουργικής μονάδας ανοίγματος.

VBA: Διαχωρισμός εγγράφου σε πολλαπλά έγγραφα ανά σελίδα στο Word

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub 

3. Στη συνέχεια κάντε κλικ στο κουμπί τρέξιμο πατήστε το κουμπί F5 κλειδί για την εφαρμογή του VBA.

Σημείωση: Τα έγγραφα διαίρεσης θα αποθηκευτούν στην ίδια θέση με το αρχικό αρχείο.


arrow μπλε δεξιά φούσκα Διαχωρίστε το έγγραφο του Word κατά τίτλο / σελίδα / διαίρεση / διάλειμμα σελίδας χρησιμοποιώντας το Kutools για το Word

Αν έχετε εγκατεστημένο το Kutools για το Word, μπορείτε να το εφαρμόσετε Σπλιτ λειτουργία για να χωρίσετε εύκολα ένα έγγραφο σε πολλαπλάσιες σελίδες, τίτλο, διάλειμμα ή διάλειμμα σελίδας όπως χρειάζεστε στο Word.

Kutools για το Word είναι ένα εύχρηστο πρόσθετο για να διευκολύνει την εργασία σας και να ενισχύσει την ικανότητά σας να επεξεργάζεστε το έγγραφο λέξεων. Δωρεάν δοκιμή για 45 ημέρες! Παρ'το τώρα!

1. Κλίκ Kutools Περισσότερα > Σπλιτ για να ενεργοποιήσετε τη δυνατότητα διαίρεσης.
έγγραφα διαχωρισμού εγγράφων 001

2. Στο διάλογο ανοίγματος Διαίρεση στην οθόνη, παρακαλώ (1) καθορίστε τον φάκελο προορισμού που θα αποθηκεύσετε τα διαχωρισμένα έγγραφα, (2) ελέγξτε τα κριτήρια που θα διαχωρίσετε από το Διαχωρίστε από (3) κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Και τώρα το τρέχον έγγραφο του Word χωρίζεται από τα καθορισμένα κριτήρια (Επικεφαλίδα 1 στην περίπτωσή μου) και ο φάκελος προορισμού ανοίγει αυτόματα με διαχωρισμένα έγγραφα. Δείτε το στιγμιότυπο οθόνης:
έγγραφα διαχωρισμού εγγράφων 002

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

Διαχωρίστε ένα έγγραφο του Word σε πολλά από αυτά:

Διαχωρίστε ένα έγγραφο του Word σε πολλά από το σπάσιμο σελίδας:

Διαχωρίστε ένα έγγραφο του Word σε πολλά από το τμήμα διάλειμμα:

Περιήγηση σε καρτέλες και επεξεργασία πολλών εγγράφων του Word όπως το Firefox, το Chrome, το Internet Εξερευνήστε το 10!

Ενδέχεται να είστε εξοικειωμένοι με την προβολή πολλών ιστοσελίδων στο Firefox / Chrome / IE και να κάνετε εναλλαγή μεταξύ τους, κάνοντας εύκολη κλικ στις αντίστοιχες καρτέλες. Εδώ, το Office Tab υποστηρίζει παρόμοια επεξεργασία, η οποία σας επιτρέπει να περιηγείστε σε πολλά έγγραφα του Word σε ένα παράθυρο του Word και να αλλάζετε εύκολα μεταξύ τους κάνοντας κλικ στις καρτέλες τους. Κάντε κλικ για πλήρη δοκιμαστική λειτουργία δωρεάν!
Περιηγηθείτε σε πολλά έγγραφα λέξεων σε ένα παράθυρο ως Firefox


arrow μπλε δεξιά φούσκαΣχετικά άρθρα:

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




Kutools για το Word

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Word 2003, 2007, 2010, 2013, 2016 και 2019

shot-kutools-700-225-ud

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 39.00 για εκατοντάδες λειτουργίες

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maya · 1 months ago
    The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
  • To post as a guest, your comment is unpublished.
    Lisa · 6 months ago
    The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Savvyno · 1 months ago
      I am working on this as well but have not found a way to do it besides manually.
    • To post as a guest, your comment is unpublished.
      Steve · 4 months ago
      Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
      • To post as a guest, your comment is unpublished.
        Savvy · 1 months ago
        After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
        • To post as a guest, your comment is unpublished.
          Steve · 1 months ago
          I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
      • To post as a guest, your comment is unpublished.
        Steve · 4 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 7 months ago
    Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
    Great but how to keep the lay-out (background image, margins ?)
  • To post as a guest, your comment is unpublished.
    Andrew · 8 months ago
    Can you split the document based on Heading 1 styles as your "delimiter".
    • To post as a guest, your comment is unpublished.
      kellytte · 2 months ago
      Hi Andrew,
      The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
  • To post as a guest, your comment is unpublished.
    SHUBAM AWASTHI · 11 months ago
    i need to split the document using page range. for example i wanted to split 1 to 10 page in another document. how i can do it