Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā sadalīt dokumentu vairākos dokumentos vārdu formātā?

Ja jums ir milzīgs vārdu dokuments, kas jums jāsadala vairākos dokumentos, lasiet šo pamācību vairākas minūtes. Šī apmācība parādīs divas metodes, kā sadalīt dokumentu vairākos dokumentos.

Split Word dokuments ar norādīto delimiter ar VBA

Split Word dokumentu ar lapu ar VBA

Split Word dokumentu pa pozīcijām / lapas / sadaļas pārtraukuma / lapas pārtraukumu, izmantojot Kutools for Word

Viegli sadaliet vienu Word dokumentu uz vairākiem pēc lapas, sadaļas / lapas pārtraukuma vai pozīcijas uzreiz!

Salīdzinot Word dokumenta sadalīšanu, kopējot un ielīmējot, Word Kutools atvieglos darbu un ievērojami uzlabos jūsu darba efektivitāti, izmantojot tā sadalīšanas funkciju, kas ātri var sadalīt pašreizējo Word dokumenta atvēršanu vairākām lappusēm, sadalot pa sadaļām pa lapām pārtraukums vai pozīcija 1, ja jums nepieciešams. Noklikšķiniet uz 60 dienas bezmaksas izmēģinājuma versiju!
dokumentu sadalīšana pa lapām

Kutools par Word: Pievienojiet 100 jaunas uzlabotas funkcijas uz Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Cilnē Office: Iespējot Tabbed Rediģēšana un pārlūkošana Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu Office: Noved Office 2003 atpakaļ uz Office 2007, 2010, 2013, 2016 un 2019.

bultiņa zils labais burbulis Split Word dokuments ar norādīto delimiter ar VBA

Tā vietā, lai manuāli sadalītu dokumentu vairākos dokumentos, šī metode ieviesīs VBA, lai sadalītu Word dokumentu, izmantojot norādīto norobežotāju programmā Word. Lūdzu, rīkojieties šādi:

1. Nospiediet Alt + F11 atslēgas kopā, lai atvērtu programmu Microsoft Visual Basic for Application;

2. Noklikšķiniet ielaidums > Moduļi, un pēc tam ielīmējiet zemāk VBA kodu jaunā atveramā moduļa logā.

VBA: sadaliet Word dokumentu vairākos dokumentu veidos, izmantojot 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. Pēc tam noklikšķiniet uz skrējiens pogu vai nospiediet taustiņu F5, lai piemērotu VBA.

4. Ja parādās Microsoft Word dokuments, lūdzu, noklikšķiniet uz pogas Jā, lai turpinātu.

Piezīme:
(1) Pārliecinieties, ka jūsu norobežotājs ir tāds pats kā "///" dokumenta apakšpārbaudē starp katru teksta daļu, kuru vēlaties nošķirt. Arī jūs varat mainīt "///" visiem norobežotājiem, kas atbilst jūsu vajadzībām.
(2) Jūs varat mainīt dokumentus "Piezīmes" sub Test, lai atbilstu jūsu vajadzībām.
(3) un sadalīšanas dokumenti tiks saglabāti tajā pašā vietā ar sākotnējo failu.
(4). Sākotnējā faila beigās jums nav jāpievieno nodalītājs, ja pēc tā sadalīšanas būs tukšs dokuments.


bultiņa zils labais burbulis Split Word dokumentu ar lapu ar VBA

Šeit ir vēl viens VBA, kas palīdzēs jums ātri sadalīt vienu Word dokumentu vairākās lappuses Word. Lūdzu, rīkojieties šādi:

1. Nospiediet Alt + F11 atslēgas kopā, lai atvērtu programmu Microsoft Visual Basic for Application;

2. Noklikšķiniet ielaidums > Moduļi, un pēc tam ielīmējiet zemāk VBA kodu jaunā atveramā moduļa logā.

VBA: sadaliet dokumentu vairākos dokumentos pēc lapas 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. Pēc tam noklikšķiniet uz skrējiens pogu vai nospiediet F5 atslēga, lai piemērotu VBA.

Piezīme: Sadalīšanas dokumenti tiks saglabāti tajā pašā vietā ar sākotnējo failu.


bultiņa zils labais burbulis Split Word dokumentu pa pozīcijām / lapas / sadaļas pārtraukuma / lapas pārtraukumu, izmantojot Kutools for Word

Ja jums ir instalēta Kutools for Word, varat to pielietot sadalīt funkcija, kas ļauj viegli sadalīt vienu dokumentu vairākos pa vienam pēc lapas, virsraksta, sadaļas pārtraukuma vai lapas pārtraukuma, kā tas nepieciešams Word ..

Kutools par Word ir ērts papildinājums, kas atvieglo jūsu darbu un uzlabo jūsu spēju apstrādāt Word dokumentu. Bezmaksas izmēģinājums 45 dienām! Get It Now!

1. Noklikšķiniet Kutools Vairāk > sadalīt lai iespējotu Split funkciju.
doc split dokumenti 001

2. Lūdzu, lūdzu, ekrānā atvēršanas dialoglodziņā (1) norādiet galamērķa mapi, kurā jūs saglabājat sadalītos dokumentus, (2) pārbaudiet kritērijus, kurus jūs sadalīsiet no Sadalīt ar nolaižamo sarakstu un (3) noklikšķiniet uz OK poga Skatīt ekrānuzņēmumu:

Un tagad pašreizējais Word dokuments tiek sadalīts pēc norādītajiem kritērijiem (manā pozīcijā 1), un mērķa mape tiek automātiski atvērta ar sadalītiem dokumentiem. Skatīt ekrānuzņēmumu:
doc split dokumenti 002

Piezīme: Šī fantastiskā Split iezīme arī atbalsta sadalīt vienu Word dokumentu pa lapām, pēc lapu pārtraukuma, un ar sadaļu viegli sadalīt Word. Skatīt ekrānuzņēmumus zemāk:

Sadalīt vienu Word dokumentu uz vairākiem pēc lappuses:

Sadalīt vienu Word dokumentu uz vairākiem pēc lappuses pārtraukuma:

Split vienu Word dokumentu uz vairākiem pēc sadaļas pauze:

Pārlūkot tabulās un rediģējot vairākus Word dokumentus kā Firefox, Chrome, Internets Izpētiet 10!

Jūs, iespējams, esat pazīstams, lai pārlūkotu vairākas pārlūkprogrammas Firefox / Chrome / IE tīmekļa lapas un pārslēgtos no tām, vienkārši noklikšķinot uz atbilstošajām cilnēm. Šeit Office Tab nodrošina līdzīgu apstrādi, kas ļauj vienā Word logā pārlūkot vairākus Word dokumentus un viegli pārslēgties no tām, noklikšķinot uz to cilnēm. Noklikšķiniet uz pilnu iespēju bezmaksas izmēģinājuma!
Vienā logā pārlūkojiet vairākus vārdu dokumentus kā Firefox


bultiņa zils labais burbulisRelatīvie raksti:

Apvienojiet vairākus dokumentus un saglabājiet formātu vārdu veidā




Kutools par Word

Vairāk nekā 100 uzlabotās funkcijas Word 2003, 2007, 2010, 2013, 2016 un 2019

shot-kutools-700-225-kte

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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 · 5 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 · 5 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