טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לפצל מסמך למסמכים מרובים במילה?

אם יש לך מסמך Word מסיבי שבו אתה צריך לפצל למסמכים מרובים, לקחת כמה דקות כדי לקרוא את זה הדרכה. הדרכה זו תציג לך שתי שיטות לפצל מסמך למסמכים מרובים.

פיצול מסמך Word לפי מפריד שצוין עם VBA

פיצול מסמך Word לפי דף עם VBA

פיצול מסמך Word לפי כותרת / עמוד / קטע הפסקה / מעבר דף באמצעות Kutools עבור Word

בקלות לפצל מסמך Word אחד למספר רב של דפים, קטע / דף הפסקה, או כותרת בבת אחת!

השוואה בין פיצול מסמך Word על ידי העתקה והדבקה, Kutools עבור Word יקל על העבודה שלך, ולשפר את יעילות העבודה שלך באופן דרמטי על ידי התכונה פיצול שלה, אשר יכול לפצל במהירות פתיחת מסמך Word הנוכחי למספר רב של דפים, על ידי הפסקה, לפי דף לשבור, או על ידי כותרת 1 כפי שאתה צריך. לחץ על 60 חינם יום ניסיון!
המודעה לפצל מסמכים לפי דף

Kutools עבור Word: הוסף 100 תכונות מתקדמות חדשות Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
הכרטיסייה 'משרד': הפעל עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי עבור Office: להביא מבט ישן של Office 2003 בחזרה אל 2007, 2010, 2013, 2016 ו- 2019.

חץ כחול בועה ימין פיצול מסמך Word לפי מפריד שצוין עם VBA

במקום לפצל מסמך למספר מסמכים באופן ידני, שיטה זו תציג VBA לפצל מסמך Word על-ידי המפריד שצוין ב- Word. אנא בצע את הפעולות הבאות:

1. ללחוץ Alt + F11 כדי לפתוח את החלון Microsoft Visual Basic for Application;

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) אתה לא צריך להוסיף מפריד לסוף הקובץ המקורי, אם תעשה, יהיה מסמך ריק לאחר פיצול.


חץ כחול בועה ימין פיצול מסמך Word לפי דף עם VBA

הנה עוד VBA כדי לעזור לך לפצל במהירות מסמך Word אחד למספר על ידי Word. אנא בצע את הפעולות הבאות:

1. ללחוץ Alt + F11 כדי לפתוח את החלון Microsoft Visual Basic for Application;

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.

הערה: המסמכים המפוצלים יישמרו באותו מקום עם הקובץ המקורי.


חץ כחול בועה ימין פיצול מסמך Word לפי כותרת / עמוד / קטע הפסקה / מעבר דף באמצעות Kutools עבור Word

אם יש לך Kutools עבור Word מותקן, אתה יכול ליישם שלה לְפַצֵל פונקציה כדי לפצל בקלות מסמך אחד לתוך מספר רב של דפים, כותרת, הפסקה קטע, או מעבר הדף כפי שאתה צריך ב- Word ..

Kutools עבור Word הוא תוספת שימושי כדי להקל על העבודה שלך ולשפר את היכולת שלך לעיבוד מסמך 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 תומך בעיבוד דומה, המאפשרים לך לעיין במסמכי Word מרובים בחלון Word אחד, ולעבור בקלות בין אותם על ידי לחיצה על הכרטיסיות שלהם. לחץ על תכונות מלא ללא תשלום!
עיון במסמכי Word מרובים בחלון אחד כ- Firefox


חץ כחול בועה ימיןמאמרים יחסיים:

מזג מסמכים מרובים ושמור פורמט במילה




Kutools עבור Word

יותר מ- 100 פונקציות מתקדמות עבור Word 2003, 2007, 2010, 2013, 2016 ו- 2019

shot-kutools-700-225-kte

תכונות נוספות | הורדה חינמית | רק 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