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

Kako razdeliti dokument na več dokumentov v besedilu?

Če imate ogromen besedilni dokument, ki ga morate razdeliti na več dokumentov, si vzemite nekaj minut, da preberete to vadnico. Ta vadnica vam bo pokazala dva načina za razdelitev dokumenta na več dokumentov.


Dokument Word razdelite na določeno ločilo z VBA

Namesto da bi dokument razdelil na več dokumentov ročno, bo ta metoda uvedla VBA za razdelitev Wordovega dokumenta po določenem ločevalniku v Wordu. Naredite naslednje:

1. Pritisnite Alt + F11 tipke skupaj, da odprete okno Microsoft Visual Basic for Application;

2. Kliknite Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula, ki se odpre.

VBA: Delite Wordov dokument na več dokumentov

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. Nato kliknite Run ali pritisnite tipko F5, da uporabite VBA.

4. V pojavnem dokumentu Microsoft Word kliknite gumb Da, da nadaljujete.

Opomba:
(1) Ne pozabite dodati ločila enako kot "///" v podtestu na dokument med posameznim odsekom besedila, ki ga želite ločiti. Prav tako se lahko spremenite "///" na ločila, ki ustrezajo vašim potrebam.
(2) Dokumente lahko spremenite "Opombe" v podtestu, ki ustreza vašim potrebam.
(3) In razdeljeni dokumenti bodo shranjeni na isto mesto z izvirno datoteko.
(4) Na koncu izvirne datoteke vam ni treba dodati ločila, v nasprotnem primeru bo po razdelitvi prazen dokument.

Razdelite Wordov dokument na stran z VBA

Tu je še en VBA, ki vam pomaga hitro razdeliti en Wordov dokument na več strani v Wordu. Naredite naslednje:

1. Pritisnite Alt + F11 tipke skupaj, da odprete okno Microsoft Visual Basic for Application;

2. Kliknite Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula, ki se odpre.

VBA: Razdeli dokument na več dokumentov po straneh v Wordu

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. Nato kliknite Run ali pritisnite F5 tipko za uporabo VBA.

Opomba: Dokumenti za razdelitev bodo shranjeni na isto mesto z izvirno datoteko.


Dokument Word razdelite po naslovu / prelomu strani / odseka / prelomu strani z uporabo Kutools for Word

Če imate nameščen Kutools za Word, ga lahko uporabite Split funkcija za enostavno razdelitev enega dokumenta na več na strani, naslov, prelom odseka ali prelom strani, kot jo potrebujete v Wordu.

Kutools za Word je priročen dodatek, ki vam olajša delo in izboljša sposobnost obdelave besedilnega dokumenta. Brezplačna preizkusna različica 60 dni! Pridi zdaj!

1.Kliknite Kutools Plus > Split da omogočite Split lastnost.

2. V začetnem pogovornem oknu na zaslonu lahko naredite naslednje:

(1) Izberite način delitve med Razdeljeno po spustni seznam.
Ta funkcija podpira 6 načinov razdeljevanja: naslov 1, prelomi strani, prelomi odsekov, strani, vsakih n strani in obsegi strani po meri, kot je prikazano spodaj:

(2) Kliknite Brskanje Gumb  določiti ciljna mapa, v katero boste shranili razdeljene dokumente;

(3) Vnesite ključno besedo kot predpono novih imen dokumentov v Predpona dokumenta škatla.

Nasvet:
(1) Če določite razdelitev trenutnega dokumenta z Vsakih n strani, morate določiti številko v Vsakih n strani škatla;

(2) Če določite, da trenutni dokument razdelite po obsegu strani po meri, morate te obsege strani po meri vnesti v vejico v stran na primer v polje vnesite 1, 3-5, 12.

3. kliknite Ok za začetek delitve.

Nato se trenutni dokument razdeli na določen način delitve, novi dokumenti pa bodo v velikem obsegu shranjeni v ciljno mapo.

Brskanje in urejanje več Wordovih dokumentov z zavihki kot Firefox, Chrome, Internet Explore 10!

V Firefoxu / Chromeu / IE si morda že želite ogledati več spletnih strani in med njimi preklapljati tako, da enostavno kliknete ustrezne zavihke. Tukaj Office Tab podpira podobno obdelavo, ki omogoča brskanje po več Wordovih dokumentih v enem Wordovem oknu in enostavno preklapljanje med njimi s klikom na njihove zavihke. Kliknite za popolno brezplačno preskusno različico!
Brskajte po več besednih dokumentih v enem oknu kot Firefox


Sorodni članki:



Priporočena orodja za produktivnost besed

 

Kutools za Word - več kot 100 naprednih funkcij za Word prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (45)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ko poskušam razdeliti dokument besedni dokument z uporabo zgornje kode VB, se razdeli tako, da odstranim vse slike in vstavljene predmete.
Ta komentar je moderator na spletnem mestu minimiziral
Imam podobno težavo kot Dhamo. Začel sem z veliko datoteko s številnimi vdelanimi kontrolniki vsebine. Ko sem svojo Wordovo datoteko razdelil s kodo VB, so bili vsi kontrolniki vsebine pretvorjeni v običajno besedilo. Ali obstaja način za razdelitev datoteke, ne da bi pri tem izgubili formatiranje izvirnika?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo. Kako lahko s temi skripti razdelim .doc ne eno stran na dokument? Na primer 10 ali 5 strani na dokument
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovana ekipa, VBA za razdelitev dokumenta na več enostranskih dokumentov deluje dobro, vendar je težava v tem, da razdeljeni dokumenti nimajo formatov tabel. (formati tabel v glavnem dokumentu niso oblikovani kot tabele v razdeljenih dokumentih). Vnaprej hvala, če lahko dobim makre, tako da tabelarni formati v glavnem dokumentu ne bodo moteni v razdeljenih dokumentih
Ta komentar je moderator na spletnem mestu minimiziral
Zelo koristno hvala! Moj izvirni dokument je imel nastavljeno »samo za branje«. To se ne prenaša v nove dokumente. Ali je to mogoče dodati?
Ta komentar je moderator na spletnem mestu minimiziral
Kutools za Word ne deluje za dokumente, ki so samo za branje.
Ta komentar je moderator na spletnem mestu minimiziral
Na žalost ne morem razdeliti strani s Kutools. Kaj lahko naredim? Dobim to sporočilo o napaki: 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(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.SecuritysFidmission.Percesser. Nadzor AccessControlActions, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean needFullPath. InternalCreateDirectoryHelper(pot niza, Boolean checkHost) pri System.IO.Directory.CreateDirectory(pot niza) pri Kutools.FormDocumentSplit.€ () pri Kutools.FormDocumentSplit.› (Object “ , EventArgs ” ) bei.Coni.Wintro. OnClick(EventArgs e) pri System.Windows.Forms.Button.OnClick(EventArgs e) pri System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) pri System.Windows.F orms.Control.WmMouseUp(Message& m, gumb MouseButtons, Int32 klikov) pri System.Windows.Forms.Control.WndProc(Message& m) pri System.Windows.Forms.ButtonBase.WndProc(For.WndProc(For.Window) pri System. Button.WndProc(Message& m) pri System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) pri System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&m) pri System.Windows.Windows.Windows(M) pri System.Windows.Windows. IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Ta komentar je moderator na spletnem mestu minimiziral
Za upokojenca je bilo pretežko razumeti, kaj se je zgodilo s starim načinom I windows XNUMX, ki je bil tako enostavno za nas starejši.
Ta komentar je moderator na spletnem mestu minimiziral
Vaš makro deluje RESNIČNO no, zahtevam pa, da razdeljeni dokumenti ohranijo svoje ozke robove in postavitev v dveh stolpcih. Bolj po sreči kot presoji (!) mi je to uspelo doseči ročno in končni rezultat je bil točno takšen, kot sem zahteval. Nato sem uporabil snemalnik makrov, vendar nimam znanja o Wordu VBA, da bi spremenil posneto kodo, da bi to dosegel. Lahko pomagate? Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Poskusil sem s prvo kodo razdeljenega dokumenta in ni delovalo. Rečeno je, da ga razdeli na tri dele, vendar ni.
Ta komentar je moderator na spletnem mestu minimiziral
Prvi VBA bo trenutni dokument razdelil z ločilom "///". Ali ste v svoj dokument dodali deljeno ločilo "///"?
Ta komentar je moderator na spletnem mestu minimiziral
Pozabi, večkrat sem poskusil s številkami črk, kar ni delovalo, potem sem videl, da je izbrisal moje komentarje. Naj poudarim, da mi prva koda ni delovala, pisalo je, da razbija dokument na tri dele, vendar ni.
Ta komentar je moderator na spletnem mestu minimiziral
Ali kdo ve, kako spremeniti ime datotek po razdelitvi glavne, želim spremeniti imena glede na glavo datoteke
Ta komentar je moderator na spletnem mestu minimiziral
Naredil sem kodo VBA: razdeli dokument na več dokumentov glede na ločilo, dokument razdeli, vendar se na žalost grafika izbriše, tudi formatiranje. Ali obstaja rešitev za to?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za kodo makra
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, to je bilo zelo koristno!
Ta komentar je moderator na spletnem mestu minimiziral
Pravkar ste mi prihranili veliko časa, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala!

Eno vprašanje, ali imate kakšno idejo, kako shraniti vse razdeljene dokumente v PDF?
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil sem kodo iz razdelka "Razdeli Wordov dokument po strani z VBA". Uspelo je razdeliti dokumente, vendar je pokvarilo oblikovanje – zaradi česar je bilo tisto, kar bi moralo biti na 2 straneh, namesto tega na 5. Igral sem se s kodo in na koncu našel rešitev.


Zamenjal sem to vrstico: docSingle.Range.Paste 'prilepi vsebino odložišča v nov dokument

s to vrstico: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Upam, da bo to pomagalo nekaterim od vas, ki ste imeli težave s formatiranjem.
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil sem kodo iz razdelka "Razdeli Wordov dokument po strani z VBA". Kako naj spremenim kodo, da ohranim prvotno glavo v vseh novih datotekah?
Ta komentar je moderator na spletnem mestu minimiziral
kot so posamezni dodatki za spajanje
Ta komentar je moderator na spletnem mestu minimiziral
Funkcija Delitev (Dokument) Kutools for Word lahko uporabnikom pomaga razdeliti Wordov dokument z naslovom 1, prelomom strani, prelomom razdelka ali stranjo.
Poleg tega Kutools za Word vključuje tudi funkcijo spajanja za spajanje več Wordovih dokumentov v enega.
Ta komentar je moderator na spletnem mestu minimiziral
dokument moram razdeliti z obsegom strani. na primer želel sem razdeliti 1 na 10 strani v drugem dokumentu. kako lahko to storim
Ta komentar je moderator na spletnem mestu minimiziral
Živjo - imam isto vprašanje, kako to storiti?
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko razdelite dokument glede na sloge naslova 1 kot "ločilo".
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo Andrew,
Skript VBA lahko razdeli celoten dokument po strani. Če morate razdeliti z naslovom 1, predlagamo, da preizkusite funkcijo Kutools for Word's Split (Document).
Ta komentar je moderator na spletnem mestu minimiziral
Prenesena mapa se sploh ne odpre. Dolgo čakanje.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije