שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו שפּאַלטן דאָקומענט אין קייפל דאָקומענטן אין וואָרט?

אויב איר האָבן אַ מאַסיוו וואָרט דאָקומענט וואָס איר דאַרפֿן צו שפּאַלטן אין קייפל דאָקומענטן, נעמען אַ ביסל מינוט צו לייענען דעם טוטאָריאַל. דעם טוטאָריאַל וועט ווייַזן איר צוויי מעטהאָדס פֿאַר ספּליטינג אַ דאָקומענט אין קייפל דאָקומענטן.

שפּאַלטן וואָרט דאָקומענט דורך ספּעסאַפייד דעלימיטאָר מיט וובאַ

שפּאַלטן וואָרט דאָקומענט דורך בלאַט מיט וובאַ

שפּאַלטן וואָרט דאָקומענט דורך כעדינג / בלאַט / אָפּטיילונג ברעכן / בלאַט ברעכן מיט ניצן קוטאָאָלס פֿאַר וואָרט

גרינג שפּאַלטן איינער וואָרט דאָקומענט צו קייפל אָנעס דורך בלאַט, אָפּטיילונג / בלאַט ברעכן, אָדער כעדינג אין אַמאָל!

פאַרגיכערן צו ספּליטינג אַ וואָרט דאָקומענט דורך קאַפּיינג און פּאַסטינג, קוטאָאָלס פֿאַר וואָרט וועט יז איר אַרבעט, און פֿאַרבעסערן דיין אַרבעט עפעקטיווקייַט דראַמאַטיקלי דורך זייַן ספּליט שטריך, וואָס קענען געשווינד שפּאַלטן קראַנט עפן וואָרט דאָקומענט צו קייפל אָנעס דורך בלאַט, דורך אָפּטיילונג ברעכן, דורך בלאַט ברעכן, אָדער דורך כעדינג קסנומקס ווי איר דאַרפֿן. דריקט פֿאַר 60-טאָג פֿרייַ פּראָצעס!
צו שפּאַלטן דאָקומענטן דורך בלאַט

קוטאָאָלס פֿאַר וואָרט: לייג קסנומקס נייַ אַוואַנסירטע פֿעיִקייטן צו וואָרט קסנומקס / קסנומקס / קסנומקס / קסנומקס / קסנומקס / קסנומקס.
אָפיס טאַב: Enable טאַבבעד עדיטינג און בראַוזינג אין אָפפיסע, פּונקט ווי קראָום, פירעפאָקס, יאָ קסנומקס / קסנומקס / קסנומקס.
קלאַסיק מעניו פֿאַר אָפפיסע: ברענגען אַלט קוקן פון אָפיס קסנומקס צוריק צו אָפפיסע קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס.

פייַל בלוי רעכט בלאָז שפּאַלטן וואָרט דאָקומענט דורך ספּעסאַפייד דעלימיטאָר מיט וובאַ

אַנשטאָט ספּליטינג דאָקומענט אין קייפל דאָקומענטן מאַניואַלי, דעם אופֿן וועט פאָרשטעלן אַ וובאַ צו שפּאַלטן אַ וואָרט דאָקומענט דורך די ספּעסאַפייד דעלימיטער אין וואָרט. ביטע טאָן ווי גייט:

1. דרוק אַלט + פקסנומקס שליסלען צוזאַמען צו עפענען די מיקראָסאָפט וויסואַל בייסיק פֿאַר אַפּפּליקאַטיאָן פֿענצטער

2. דריקט אַרייַנלייגן > מאָדולעס, און דעמאָלט פּאַפּ ונטער וובאַ קאָד אין די נייַ עפן מאָדולע פֿענצטער.

וובאַ: ספּליט וואָרט דאָקומענט אין מער ווי איין דאָקומענטן דורך דעלימיטער

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. דעמאָלט גיט לויפן קנעפּל אָדער דריקן פקסנומקס שליסל צו צולייגן די וובאַ.

4. אין די פּאַפּינג אויס מייקראָסאָפֿט וואָרט דאָקומענט, גיט די יאָ קנעפּל צו פאָרויס.

נאטיץ:
(קסנומקס) זייט זיכער צו לייגן דיין דעלימיטאָר ווי די זעלבע ווי "///" אין דעם סאַב-פּרובירן צו דעם דאָקומענט צווישן יעדער אָפּטיילונג פון טעקסט איר ווילן צו באַזונדער. אויך, איר קענען טוישן "///" צו קיין דעלימיטערז צו טרעפן דיין דאַרפֿן.
(2) איר קענען טוישן די דאָקומענטן "Notes" אין די סוב טעסט צו פּאַסן דיין באדערפענישן.
(3) און די ספּליטינג דאקומענטן וועט זיין געראטעוועט צו דער זעלביקער אָרט מיט דער אָריגינעל טעקע.
(4) איר טאָן ניט דאַרפֿן צו לייגן דעלימיטאָר צו דער סוף פון דער אָריגינעל טעקע, אויב איר טאָן, עס וועט זיין אַ ליידיק דאָקומענט נאָך ספּליטינג.


פייַל בלוי רעכט בלאָז שפּאַלטן וואָרט דאָקומענט דורך בלאַט מיט וובאַ

דאָ איז אן אנדער וובאַ צו העלפן איר געשווינד שפּאַלטן איין וואָרט דאָקומענט צו קייפל דורך בלאַט אין וואָרט. ביטע טאָן ווי גייט:

1. דרוק אַלט + פקסנומקס שליסלען צוזאַמען צו עפענען די מיקראָסאָפט וויסואַל בייסיק פֿאַר אַפּפּליקאַטיאָן פֿענצטער

2. דריקט אַרייַנלייגן > מאָדולעס, און דעמאָלט פּאַפּ ונטער וובאַ קאָד אין די נייַ עפן מאָדולע פֿענצטער.

VBA: שפּאַלטן דאָקומענט אין Multiple דאקומענטן דורך זייַט אין וואָרט

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 שליסל צו צולייגן די וובאַ.

נאטיץ: די ספּליטינג דאקומענטן וועט זיין געראטעוועט צו דער זעלביקער אָרט מיט דער אָריגינעל טעקע.


פייַל בלוי רעכט בלאָז שפּאַלטן וואָרט דאָקומענט דורך כעדינג / בלאַט / אָפּטיילונג ברעכן / בלאַט ברעכן מיט ניצן קוטאָאָלס פֿאַר וואָרט

אויב איר האָבן קוטאָאָלס פֿאַר וואָרט אינסטאַלירן, איר קענען צולייגן עס שפּאַלטן פונקציאָנירן צו לייכט שפּאַלטן איין דאָקומענט אין קייפל אָנעס דורך בלאַט, כעדינג, אָפּטיילונג ברעכן, אָדער בלאַט ברעכן ווי איר דאַרפֿן אין וואָרט.

קוטאָאָלס פֿאַר וואָרט איז אַ האַנטיק לייג-אין צו יז דיין אַרבעט און פאַרבעסערן דיין פיייקייַט פון פּראַסעסינג וואָרט דאָקומענט. Free Trial for 45 days! באקום עס יעצט!

1. דריקט Kutools More > שפּאַלטן צו געבן דעם ספּליט שטריך.
שולדבאַנק שפּאַלטן דאקומענטן קסנומקס

2. אין די עפענען ספּליט דיאַלאָג אין די פאַרשטעלן, ביטע (קסנומקס) ספּעציפיצירן די דעסטיניישאַן טעקע איר וועט ראַטעווען די שפּאַלטן דאָקומענטן אין, (קסנומקס) טשעק קרייטיריאַ איר וועט שפּאַלטן דורך די שפּאַלטן דורך פאַלן אַראָפּ רשימה, און (קסנומקס) גיט די OK קנעפּל. זען סקרעענשאָט:

און איצט די קראַנט וואָרט דאָקומענט איז שפּאַלטן דורך די ספּעסאַפייד קרייטיריאַ (כעדינג קסנומקס אין מיין פאַל), און דער דעסטיניישאַן טעקע עפענען אויטאָמאַטיש מיט ספּליט דאָקומענטן. זען סקרעענשאָט:
שולדבאַנק שפּאַלטן דאקומענטן קסנומקס

נאטיץ: דעם פאַנטאַסטיש ספּליט שטריך אויך שטיצט שפּאַלטן איינער וואָרט דאָקומענט דורך בלאַט, דורך בלאַט ברעכן, און דורך אָפּטיילונג ברעכן לייכט אין וואָרט. זען אונטער סקרעענשאָץ:

שפּאַלטן איין וואָרט דאָקומענט צו קייפל אָנעס דורך בלאַט:

שפּאַלטן איין וואָרט דאָקומענט צו קייפל אָנעס דורך בלאַט ברעכן:

שפּאַלטן איין וואָרט דאָקומענט צו קייפל אָנעס דורך אָפּטיילונג ברעכן:

טאַבבעד בראַוזינג & עדיטינג קייפל וואָרט דאָקומענטן ווי פירעפאָקס, קראָום, אינטערנעט ויספאָרשן קסנומקס!

איר קען זיין ביכולת צו זען קייפל וועבפּאַגעס אין פירעפאָקס / קראָום / הייסט, און יבערבייַט צווישן זיי דורך קליקינג קאָראַספּאַנדינג קוויטל לייכט. דאָ, אָפפיסע טאַב שטיצט ענלעך פּראַסעסינג, וואָס אַלאַוז איר צו זוכן קייפל וואָרט דאָקומענטן אין איין וואָרט פֿענצטער, און לייכט באַשטימען צווישן זיי דורך קליקינג זייער טאַבס. גיט פֿאַר פול פֿעיִקייטן פֿרייַ פּראָצעס!
בלעטער קייפל וואָרט דאָקומענטן אין איין פֿענצטער ווי פירעפאָקס


פייַל בלוי רעכט בלאָזפֿאַרבונדענע אַרטיקלען:

צונויפגיסן קייפל דאָקומענטן און האַלטן פֿאָרמאַט אין וואָרט




קוטאָאָלס פֿאַר וואָרט

מער ווי קסנומקס אַוואַנסירטע פאַנגקשאַנז פֿאַר וואָרט קסנומקס, קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס

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 · 2 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 · 7 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 · 2 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 · 6 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 · 2 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 · 2 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 · 6 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 8 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 · 9 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 · 3 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 · 1 years 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