რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ გაყოფილი დოკუმენტი მრავალ დოკუმენტში სიტყვაში?

თუ თქვენ გაქვთ მასიური სიტყვის დოკუმენტი, რომელიც უნდა გაყოთ მრავალ დოკუმენტში, რამდენიმე წუთი დასჭირდე ამ ტერმინალს წაკითხვისთვის. ეს გაკვეთილი გაჩვენებთ ორ მეთოდს დოკუმენტის გაყოფის მიზნით სხვადასხვა დოკუმენტში.

გაცვლითი Word დოკუმენტი მითითებულ delimiter მიერ VBA

VBA- ს გვერდით გაყოფილი Word დოკუმენტი

Split Word დოკუმენტი სასაქონლო / გვერდი / მონაკვეთის შესვენების / გვერდი შესვენების გამოყენებით Kutools for Word

ადვილად გაყოფილი ერთი Word დოკუმენტის მრავალჯერადი პირობა გვერდზე, სექცია / გვერდზე შესვენების, ან სასაქონლო ერთდროულად!

შედარებით გაყოფის Word დოკუმენტის კოპირება და pasting, Kutools ამისთვის Word იქნება განმუხტვის თქვენ მუშაობა და გააუმჯობესოს თქვენი მუშაობის ეფექტურობის დრამატულად მისი გაყოფა ფუნქცია, რომელიც შეიძლება სწრაფად გაყოფილი მიმდინარე გახსნის Word დოკუმენტის მრავალრიცხოვან პირობა მიერ განყოფილების შესვენების, გვერდი შესვენება, ან სასაქონლო 1 როგორც გჭირდებათ. დაწკაპეთ 60 დღიანი უფასო საცდელი!
რეკლამის გაყოფის დოკუმენტები გვერდზე

Kutools სიტყვით: სანიშნეს ახალი ახალი თვისებები სიტყვით 2003 / 2007 / 2010 / 2013 / 2016.
ოფისის ჩანართი: ჩართვა Tabbed Editing და Browsing ოფისში, ისევე როგორც Chrome, Firefox, IE 8 / 9 / 10.
კლასიკური მენიუ ოფისში: Bring ძველი ნახვა ოფისი XX უკან ოფისიდან 2007, 2010, 2013, 2016 და 2019.

arrow ლურჯი სწორი bubble გაცვლითი Word დოკუმენტი მითითებულ delimiter მიერ VBA

ნაცვლად იმისა, რომ დოკუმენტის გაყოფის ნაცვლად, ეს დოკუმენტი VBA- ს გააცნობს Word დოკუმენტის განზოგადებაზე მითითებულ delimiter- ში. გთხოვთ გააკეთოთ შემდეგი:

1. დაჭერა Alt + F11 კლავიშები ერთად გახსნას Microsoft Visual Basic განაცხადის ფანჯარა;

2. დაწკაპეთ ჩადეთ > მოდულები, და შემდეგ ჩასვით VBA კოდი ახალ გახსნის მოდულის ფანჯარაში.

VBA: Split 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. შემდეგ დააჭირეთ Run ღილაკს ან დააჭირეთ F5 ღილაკს VBA- ს გამოყენებაზე.

4. Microsoft Word- ის დოკუმენტზე ამოღებისას გთხოვთ, დააჭირეთ დიახ ღილაკს.

შენიშვნა:
(1) დარწმუნდით, რომ დაამატოთ თქვენი delimiter როგორც იგივე "///" ტექსტის თითოეული მონაკვეთის შუალედურ ტექსტში გამოყოფა გსურთ. გარდა ამისა, თქვენ შეგიძლიათ შეცვალოთ "///" ნებისმიერი დელიმტი, რათა დააკმაყოფილოს თქვენი საჭიროება.
(2) შეგიძლიათ შეცვალოთ დოკუმენტები "შენიშვნები" ქვე ტესტში თქვენი მოთხოვნების შესაბამისად.
(3) და გაყოფის დოკუმენტები შეინახება იმავე ადგილას თავდაპირველ ფაილთან.
(4) თქვენ არ გჭირდებათ დემიმიტერის დასამატებლად თავდაპირველი ფაილის დასასრულებლად, თუ გაითვალისწინებთ, რომ ცარიელი დოკუმენტი გაყოფის შემდეგ იქნება.


arrow ლურჯი სწორი bubble VBA- ს გვერდით გაყოფილი Word დოკუმენტი

აქ არის კიდევ ერთი VBA დაგეხმაროთ სწრაფად გაყოფილი ერთი Word დოკუმენტის მრავალჯერადი გვერდზე Word. გთხოვთ გააკეთოთ შემდეგი:

1. დაჭერა Alt + F11 კლავიშები ერთად გახსნას Microsoft Visual Basic განაცხადის ფანჯარა;

2. დაწკაპეთ ჩადეთ > მოდულები, და შემდეგ ჩასვით VBA კოდი ახალ გახსნის მოდულის ფანჯარაში.

VBA: Split Document მრავალჯერადი დოკუმენტების გვერდით 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. შემდეგ დააჭირეთ Run ღილაკი ან პრესა F5 გასაღები გამოიყენოს VBA.

შენიშვნა: გაყოფის დოკუმენტები შეინახება იმავე ადგილას თავდაპირველ ფაილთან.


arrow ლურჯი სწორი bubble Split Word დოკუმენტი სასაქონლო / გვერდი / მონაკვეთის შესვენების / გვერდი შესვენების გამოყენებით Kutools for Word

თუ თქვენ გაქვთ კუტუსი სიტყვებისთვის, შეგიძლიათ გამოიყენოთ მისი გამოყენება Split ფუნქცია ადვილად გაყოფილი ერთი დოკუმენტი შევიდა მრავალჯერადი პირობა გვერდზე, სასაქონლო, განყოფილების შესვენების, ან გვერდზე შესვენების როგორც თქვენ გჭირდებათ Word ..

Kutools სიტყვით არის მოსახერხებელი add-in განმუხტვის თქვენი სამუშაო და გაზარდოს თქვენი უნარი გადამუშავების სიტყვა დოკუმენტი. უფასო საცდელი დღეა! მიიღე ახლა!

1. დაწკაპეთ კუტუსი პლუს > Split რათა მოხდეს Split ფუნქცია.
დოკუმენტი გაყოფილი დოკუმენტები 001

2. გახსენით Split დიალოგის ეკრანზე, გთხოვთ (1) მიუთითეთ დანიშნულების საქაღალდე დაამატეთ გაყოფილი დოკუმენტები, (2) შეამოწმეთ კრიტერიუმები, რომელიც გაყოფთ თქვენგან გაყოფა ჩამოშლადი სია, და (3) დააჭირეთ OK ღილაკი. იხილეთ სკრინშოტი:

და ახლა მიმდინარე Word დოკუმენტი გაყოფილი კონკრეტული კრიტერიუმებით (სასაქონლო X ჩემი შემთხვევაში) და დანიშნულების საქაღალდე ხსნის ავტომატურად გაყოფილი დოკუმენტები. იხილეთ სკრინშოტი:
დოკუმენტი გაყოფილი დოკუმენტები 002

შენიშვნა: ეს ფანტასტიური გაყოფილი ფუნქცია ასევე მხარს უჭერს ერთი Word დოკუმენტის გვერდს, გვერდის შესვენებით და სექციის შესვენებით ადვილად Word- ში. იხილეთ ეკრანის ქვემოთ:

ერთი Word დოკუმენტის გაყოფა მრავალთათვის:

გაყოფილი ერთი Word დოკუმენტის მრავალჯერადი პირობა გვერდზე შესვენების:

გაყოფილი ერთი Word დოკუმენტი მრავალჯერადი პირობა სექცია შესვენების:

Tabbed ათვალიერებს და რედაქტირება მრავალი Word დოკუმენტების როგორც Firefox, Chrome, Internet Explore 10!

თქვენ შეიძლება იცნობს მრავალფუნქციური გვერდების ნახვას Firefox / Chrome / IE და მათ შორის გადართვა შესაბამისი ჩანართების დაჭერით. აქ ოფისი Tab მხარს უჭერს მსგავს დამუშავებას, რომელიც საშუალებას გაძლევთ დაათვალიეროთ მრავალი Word დოკუმენტი ერთ Word ფანჯარაში და მარტივად გადაერთოთ მათ შორის ჩანართების დაჭერით. დაწკაპეთ სრული ფუნქციები უფასო საცდელი!
იხილე მრავალრიცხოვანი სიტყვების დოკუმენტები ერთ ფანჯარაში Firefox- ში


arrow ლურჯი სწორი bubbleშედარებითი სტატიები:

შერწყმა მრავალჯერადი დოკუმენტები და შეინახეთ ფორმატი სიტყვაში




Kutools სიტყვით

მეტი, ვიდრე 100 Advanced ფუნქციები სიტყვა 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 · 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