Note: The other languages of the website are Google-translated. Back to English

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

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


Διαχωρισμός εγγράφου Word από καθορισμένο οριοθέτη με VBA

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

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

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

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

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) Δεν χρειάζεται να προσθέσετε οριοθέτη στο τέλος του αρχικού αρχείου, εάν το κάνετε, θα υπάρχει ένα κενό έγγραφο μετά το διαχωρισμό.

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

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

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

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

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.

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


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

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

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

1.Κάντε κλικ Kutools Plus > Σπλιτ για να ενεργοποιήσετε το Σπλιτ χαρακτηριστικό.

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

(1) Επιλέξτε τον τρόπο διαχωρισμού από το Διαχωρισμός από Αναπτυσσόμενη λίστα.
Αυτή η δυνατότητα υποστηρίζει 6 τρόπους διαχωρισμού: επικεφαλίδα 1, αλλαγές σελίδας, διαλείμματα ενότητας, σελίδες, κάθε n σελίδες και προσαρμοσμένες περιοχές σελίδων όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

(2) Κάντε κλικ στο Αναζήτηση κουμπί  να προσδιορίσω στον φάκελο προορισμού στον οποίο θα αποθηκεύσετε τα διαχωρισμένα έγγραφα ·

(3) Πληκτρολογήστε μια λέξη-κλειδί ως πρόθεμα νέων ονομάτων εγγράφων στο Πρόθεμα εγγράφου κουτί.

Συμβουλές:
(1) Εάν καθορίσετε τη διαίρεση του τρέχοντος εγγράφου από Κάθε n σελίδες, πρέπει να καθορίσετε τον αριθμό στο Κάθε n σελίδες κουτί;

(2) Εάν ορίσετε να διαχωρίσετε το τρέχον έγγραφο με προσαρμοσμένα εύρη σελίδων, πρέπει να εισαγάγετε αυτά τα προσαρμοσμένα εύρη σελίδων διαχωρισμένα με κόμματα στο Σελίδα πλαίσιο, για παράδειγμα, πληκτρολογήστε 1, 3-5, 12 στο πλαίσιο.

3. Κάντε κλικ στο Ok κουμπί για να αρχίσετε να χωρίζετε.

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

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

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


Σχετικά άρθρα:



Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (45)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν προσπαθώ να χωρίσω το έγγραφο του Word χρησιμοποιώντας τον παραπάνω κώδικα VB, διαχωρίζεται αφαιρώντας όλες τις εικόνες και τα αντικείμενα που έχουν εισαχθεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω ένα πρόβλημα παρόμοιο με αυτό του Dhamo. Ξεκίνησα με ένα μεγάλο αρχείο με πολλά ενσωματωμένα στοιχεία ελέγχου περιεχομένου. Όταν χώρισα το αρχείο Word μου χρησιμοποιώντας τον κώδικα VB, όλα τα στοιχεία ελέγχου περιεχομένου μετατράπηκαν σε κανονικό κείμενο. Υπάρχει κάποιος τρόπος να χωρίσετε ένα αρχείο χωρίς να χάσετε τη μορφοποίηση του πρωτοτύπου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας. Πώς μπορώ να χωρίσω το .doc όχι μία σελίδα ανά έγγραφο χρησιμοποιώντας αυτά τα σενάρια; Π.χ. 10 ή 5 σελίδες ανά έγγραφο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ ομάδα, το VBA για διαίρεση εγγράφου σε πολλαπλά έγγραφα μιας σελίδας λειτουργεί καλά, αλλά το πρόβλημα είναι ότι τα διαχωρισμένα έγγραφα δεν έχουν τις μορφές πίνακα. (οι μορφές πίνακα στο κύριο έγγραφο δεν μορφοποιούνται ως πίνακας σε χωρισμένα έγγραφα). Ευχαριστώ εκ των προτέρων εάν μπορώ να λάβω τις μακροεντολές, έτσι ώστε οι μορφές πινάκων στο κύριο έγγραφο να μην ενοχλούνται σε διαχωρισμένα έγγραφα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο ευχαριστώ! Το αρχικό έγγραφό μου είχε οριστεί "μόνο για ανάγνωση". Αυτό δεν μεταφέρεται στα νέα έγγραφα. Είναι δυνατόν να προστεθεί αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το Kutools για το Word δεν λειτουργεί για έγγραφα μόνο για ανάγνωση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δυστυχώς, δεν μπορώ να χωρίσω σελίδες με το Kutools. Τι μπορώ να κάνω? Λαμβάνω αυτό το μήνυμα σφάλματος: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(Διαδρομή συμβολοσειράς, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath.OPmissionlPath.OPmissionLers Έλεγχος AccessControlActions, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess Access, String[] pathList, Boolean checkForD.Path. InternalCreateDirectoryHelper(Διαδρομή συμβολοσειράς, Boolean checkHost) bei System.IO.Directory.CreateDirectory(Διαδρομή συμβολοσειράς) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object “ , EventArgs.ms ”indownC. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bei System.Windows.F orms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Forms.Win. Button.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.NativeWindows. IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ δύσκολο για έναν συνταξιούχο να κατανοήσει τι συνέβη με τον παλιό τρόπο που τα Windows XNUMX ήταν ότι το πρόγραμμα ήταν τόσο εύκολο για εμάς τους ηλικιωμένους.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η μακροεντολή σας λειτουργεί ΠΡΑΓΜΑΤΙΚΑ Λοιπόν, ωστόσο, απαιτώ τα χωρισμένα έγγραφα να διατηρήσουν τα στενά περιθώρια και τη διάταξη δύο στηλών. Περισσότερο από τύχη παρά από κρίση(!), κατάφερα να το πετύχω χειροκίνητα και το τελικό αποτέλεσμα ήταν ακριβώς όπως απαιτούσα. Στη συνέχεια χρησιμοποίησα τη συσκευή εγγραφής μακροεντολών, αλλά δεν έχω τη γνώση του Word VBA για να αλλάξω τον εγγεγραμμένο κώδικα για να το πετύχω. Μπορεις να βοηθησεις? Ευχαριστώ εκ των προτέρων!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα τον πρώτο διαχωρισμένο κωδικό εγγράφου και δεν λειτούργησε. Είπε ότι το χώριζε σε τρία τμήματα, αλλά δεν το έκανε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το πρώτο VBA θα χωρίσει το τρέχον έγγραφο με τον οριοθέτη "///". Προσθέσατε τον διαχωριστή διαχωρισμού "///" στο έγγραφό σας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέχνα το, προσπάθησα αρκετές φορές με τα γράμματα νούμερα, που δεν πέτυχε, μετά το είδα να σβήνει τα σχόλιά μου. Απλώς για να σημειώσω ότι ο πρώτος κωδικός δεν λειτούργησε για μένα, έλεγε ότι έσπασε το έγγραφο σε τρεις ενότητες, αλλά δεν το έκανε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέρει κανείς πώς να αλλάξω το όνομα των αρχείων μετά τον διαχωρισμό του κύριου θέλω να αλλάξω τα ονόματα σύμφωνα με την κεφαλίδα του αρχείου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έκανα τον κώδικα VBA: χωρίζει το έγγραφο σε πολλά έγγραφα σύμφωνα με τον οριοθέτη, χωρίζει το έγγραφο, αλλά δυστυχώς τα γραφικά διαγράφονται, καθώς και η μορφοποίηση. Υπάρχει λύση σε αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τον κωδικό μακροεντολής
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ, αυτό ήταν πολύ χρήσιμο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μόλις μου εξοικονομήσατε χρόνο, ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ!

Μια ερώτηση Έχετε ιδέα να αποθηκεύσετε όλα τα χωρισμένα έγγραφα σε PDF;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα τον κώδικα από την ενότητα "Split Word Document By Page With VBA". Λειτούργησε στον διαχωρισμό των εγγράφων, αλλά μπέρδεψε τη μορφοποίηση - με αποτέλεσμα αυτό που θα έπρεπε να ήταν σε 2 σελίδες να βρίσκεται σε 5. Έπαιξα με τον κωδικό και κατέληξα να βρω μια λύση.


Αντικατέστησα αυτήν τη γραμμή: docSingle.Range.Paste 'επικολλήστε τα περιεχόμενα του προχείρου στο νέο έγγραφο

με αυτήν τη γραμμή: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Ελπίζουμε ότι αυτό θα βοηθήσει κάποιους από εσάς που είχατε προβλήματα μορφοποίησης.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα τον κώδικα από την ενότητα "Split Word Document By Page With VBA". Πώς πρέπει να τροποποιήσω τον κώδικα για να διατηρήσω την αρχική κεφαλίδα σε όλα τα νέα αρχεία;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όπως μεμονωμένα πρόσθετα συγχώνευσης
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η δυνατότητα Split (Document) του Kutools για Word μπορεί να βοηθήσει τους χρήστες να χωρίσουν ένα έγγραφο του Word με επικεφαλίδα 1, αλλαγή σελίδας, αλλαγή ενότητας ή σελίδα.
Επιπλέον, το Kutools για Word περιλαμβάνει επίσης τη δυνατότητα Συγχώνευσης για τη συγχώνευση πολλών εγγράφων του Word σε ένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρέπει να χωρίσω το έγγραφο χρησιμοποιώντας το εύρος σελίδων. για παράδειγμα ήθελα να χωρίσω 1 σε 10 σελίδες σε άλλο έγγραφο. πώς μπορώ να το κάνω
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια - Έχω την ίδια ερώτηση, υπάρχει τρόπος να το κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να χωρίσετε το έγγραφο με βάση τα στυλ Επικεφαλίδας 1 ως "οριοθέτη" σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Andrew,
Το σενάριο VBA μπορεί να χωρίσει ολόκληρο το έγγραφο κατά σελίδα. Εάν χρειάζεται να κάνετε διαχωρισμό με την επικεφαλίδα 1, προτείνουμε να δοκιμάσετε τη δυνατότητα διαχωρισμού (έγγραφο) του Kutools για το Word.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το κατεβασμένο fodler δεν ανοίγει καθόλου. Αναμονή για πολλή ώρα.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL