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

Hoe een document in meerdere documenten in Word opsplitsen?

Als je een enorm Word-document hebt dat je in meerdere documenten moet splitsen, neem dan een paar minuten om deze tutorial te lezen. Deze tutorial laat je twee methoden zien om een ​​document in meerdere documenten te splitsen.


Splits Word-document op opgegeven scheidingsteken met VBA

In plaats van het document handmatig in meerdere documenten te splitsen, introduceert deze methode een VBA om een ​​Word-document te splitsen door het opgegeven scheidingsteken in Word. Ga als volgt te werk:

1. pers Alt + F11 toetsen samen om het Microsoft Visual Basic for Application-venster te openen;

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodule-venster.

VBA: Word-document splitsen in meerdere documenten per scheidingsteken

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. Dan klikken lopen knop of druk op F5 toets om de VBA toe te passen.

4. Klik in het pop-up Microsoft Word-document op de knop Ja om door te gaan.

Opmerking:
(1) Zorg ervoor dat u uw scheidingsteken op dezelfde manier toevoegt als "///" in de subtest van het document tussen elke tekstsectie die u wilt scheiden. U kunt ook wijzigen "///" naar eventuele scheidingstekens om aan uw behoefte te voldoen.
(2) U kunt de documenten wijzigen "Notes" in de subtest om aan uw behoeften te voldoen.
(3) En de gesplitste documenten worden op dezelfde plaats opgeslagen als het originele bestand.
(4) U hoeft geen scheidingsteken toe te voegen aan het einde van het originele bestand, als u dat doet, zal er na het splitsen een blanco document zijn.

Splits Word-document per pagina met VBA

Hier is nog een VBA om u te helpen snel een Word-document op meerdere pagina's in Word te splitsen. Ga als volgt te werk:

1. pers Alt + F11 toetsen samen om het Microsoft Visual Basic for Application-venster te openen;

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodule-venster.

VBA: document splitsen in meerdere documenten per pagina in 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. Dan klikken lopen knop of druk op F5 sleutel om de VBA toe te passen.

Opmerking: De gesplitste documenten worden op dezelfde plaats opgeslagen als het originele bestand.


Splits Word-document op kop / pagina / sectie-einde / pagina-einde met Kutools voor Word

Als je Kutools for Word hebt geïnstalleerd, kun je het toepassen Split functie om eenvoudig een document op te splitsen in meerdere documenten per pagina, kop, sectie-einde of pagina-einde zoals je nodig hebt in Word.

Kutools for Word is een handige invoegtoepassing om uw werk te vergemakkelijken en uw vermogen om Word-documenten te verwerken te verbeteren. Gratis proefversie voor 60 dagen! Profiteer nu!

1.Klik Koetools Plus > Split om de Split kenmerk.

2. In het openingsvenster Splitsen op het scherm kunt u het volgende doen:

(1) Kies de splitsingsmanier van de Gesplitst door keuzelijst.
Deze functie ondersteunt 6 splitsingsmanieren: kop 1, pagina-einden, sectie-einden, pagina's, elke n-pagina en aangepaste paginabereiken zoals onderstaand screenshot:

(2) Klik op het Blader  specificeren de doelmap waarin u de gesplitste documenten opslaat;

(3) Typ een trefwoord in als het voorvoegsel van nieuwe documentnamen in het Documentvoorvoegsel doos.

Tips:
(1) Als u specificeert de splitsing van het huidige document door Elke n pagina's, moet u het nummer specificeren in het Elke n pagina's doos;

(2) Als u specificeert om het huidige document te splitsen op basis van aangepaste paginabereiken, moet u deze aangepaste paginabereiken invoeren, gescheiden door komma's in de Pagina Typ bijvoorbeeld 1, 3-5, 12 in het vak.

3. Klik op de Ok knop om te beginnen met splitsen.

Vervolgens wordt het huidige document op de gespecificeerde manier gesplitst en worden nieuwe documenten in bulk in de doelmap opgeslagen.

Bladeren en bewerken met tabbladen in meerdere Word-documenten zoals Firefox, Chrome, Internet Explore 10!

U bent wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de overeenkomstige tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waardoor u door meerdere Word-documenten in één Word-venster kunt bladeren en gemakkelijk tussen de documenten kunt schakelen door op hun tabbladen te klikken. Klik voor gratis proefversie met volledige functies!
Blader door meerdere Word-documenten in één venster als Firefox


Relatieve artikelen:



Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Heb je vragen? Stel ze hier. (45)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Wanneer ik het woorddocument probeer te splitsen met behulp van de bovenstaande VB-code, wordt het gesplitst door alle afbeeldingen en ingevoegde objecten te verwijderen.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een soortgelijk probleem als dat van Dhamo. Ik begon met een groot bestand met veel besturingselementen voor ingesloten inhoud. Toen ik mijn Word-bestand splitste met behulp van de VB-code, werden de inhoudsbesturingselementen allemaal geconverteerd naar gewone tekst. Is er een manier om een ​​bestand te splitsen zonder de opmaak van het origineel te verliezen?
Deze opmerking is gemaakt door de moderator op de site
Hallo. Hoe kan ik .doc niet één pagina per document splitsen met behulp van deze scripts? Bijv. 10 of 5 pagina's per document
Deze opmerking is gemaakt door de moderator op de site
Beste team, VBA voor het splitsen van documenten in meerdere documenten met één pagina werkt goed, maar het probleem is dat gesplitste documenten niet de tabelindelingen hebben (tabelindelingen in hoofddocument zijn niet opgemaakt als tabel in gesplitste documenten). Bij voorbaat dank als ik de macro's kan krijgen, zodat tabelindelingen in het hoofddocument niet worden verstoord in gesplitste documenten
Deze opmerking is gemaakt door de moderator op de site
Heel handig bedankt! Mijn originele document had 'alleen lezen' ingesteld. Dit wordt niet omgezet in de nieuwe documenten. Is dit mogelijk om toe te voegen?
Deze opmerking is gemaakt door de moderator op de site
Kutools for Word werkt niet voor alleen-lezen documenten.
Deze opmerking is gemaakt door de moderator op de site
Helaas kan ik geen pagina's splitsen met Kutools. Wat kan ik doen? Ik krijg deze foutmelding: Informationen über das Aufrrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. *************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bij System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bij System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bij System.Security.Permissions..FileIOLPermissions. AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFull. InternalCreateDirectoryHelper(String path, Boolean checkHost) bij System.IO.Directory.CreateDirectory(String path) bij Kutools.FormDocumentSplit.€ () bij Kutools.FormDocumentSplit.› (Object " , EventArgs ") bij System.Windows.Forms.Control. OnClick(EventArgs en) bij System.Windows.Forms.Button.OnClick(EventArgs en) bij System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bij System.Windows.F orms.Control.WmMouseUp (Message& m, MouseButtons-knop, Int32-klikken) bij System.Windows.Forms.Control.WndProc (Message& m) bij System.Windows.Forms.ButtonBase.WndProc (Message& m) bij System.Windows.Forms. Button.WndProc(Message& m) bij System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bij System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bij System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Deze opmerking is gemaakt door de moderator op de site
Het is te moeilijk voor een gepensioneerde om te begrijpen wat er met de oude manier is gebeurd. I Windows XNUMX, dat programma was voor ons, oudere mensen, zo gemakkelijk te volgen.
Deze opmerking is gemaakt door de moderator op de site
Je macro werkt eCHT goed, echter, ik wil dat de gesplitste documenten hun smalle marges en lay-out met twee kolommen behouden. Meer door geluk dan oordeel(!), lukte het me om dit handmatig te bereiken en het eindresultaat was precies zoals ik het nodig had. Ik heb toen de macrorecorder gebruikt, maar heb niet de kennis van Word VBA om de opgenomen code te wijzigen om dit te bereiken. Kun je helpen? Bij voorbaat dank!
Deze opmerking is gemaakt door de moderator op de site
Ik heb de eerste gesplitste documentcode geprobeerd en het werkte niet. Het zei dat het het in drie delen opsplitste, maar dat deed het niet.
Deze opmerking is gemaakt door de moderator op de site
De eerste VBA splitst het huidige document op het scheidingsteken "///". Heb je het scheidingsteken "///" in je document toegevoegd?
Deze opmerking is gemaakt door de moderator op de site
Vergeet het maar, ik heb verschillende keren geprobeerd met de letters cijfers, wat niet werkte, toen zag ik dat mijn opmerkingen werden gewist. Gewoon om op te merken dat de eerste code niet voor mij werkte, er stond dat het het document in drie secties opsplitste, maar dat deed het niet.
Deze opmerking is gemaakt door de moderator op de site
Weet iemand hoe je de naam van de bestanden kunt wijzigen na het splitsen van de belangrijkste. Ik wil de namen wijzigen volgens de kop van het bestand
Deze opmerking is gemaakt door de moderator op de site
Ik deed de VBA-code: document opsplitsen in meerdere documenten volgens scheidingsteken, het splitst het document maar helaas worden de afbeeldingen verwijderd, ook opmaak. Is hier een oplossing voor?
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor de macrocode
Deze opmerking is gemaakt door de moderator op de site
Bedankt, dit was erg nuttig!
Deze opmerking is gemaakt door de moderator op de site
Je hebt me zojuist een Sh*t-tijd bespaard, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Bedankt!

Een vraag Heeft u enig idee om alle gesplitste documenten in PDF op te slaan?
Deze opmerking is gemaakt door de moderator op de site
Ik heb de code gebruikt uit de sectie "Word-document op pagina splitsen met VBA". Het werkte om de documenten op te splitsen, maar verknoeide de opmaak - waardoor wat op 2 pagina's had moeten staan, in plaats daarvan op 5 stond. Ik speelde wat met de code en vond uiteindelijk een oplossing.


Ik heb deze regel vervangen: docSingle.Range.Paste 'plak de inhoud van het klembord in het nieuwe document

met deze regel: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Ik hoop dat dit sommigen van jullie helpt die formatteringsproblemen hebben gehad.
Deze opmerking is gemaakt door de moderator op de site
Ik heb de code gebruikt uit de sectie "Word-document op pagina splitsen met VBA". Hoe moet ik de code aanpassen om de originele header in alle nieuwe bestanden te behouden?
Deze opmerking is gemaakt door de moderator op de site
zoals individuele samenvoeg-add-ons
Deze opmerking is gemaakt door de moderator op de site
De Split (document) functie van Kutools for Word kan gebruikers helpen een Word-document te splitsen op kop 1, pagina-einde, sectie-einde of pagina.
Bovendien bevat Kutools voor Word ook de functie Samenvoegen om meerdere Word-documenten samen te voegen tot één.
Deze opmerking is gemaakt door de moderator op de site
ik moet het document splitsen met behulp van paginabereik. ik wilde bijvoorbeeld 1 tot 10 pagina's in een ander document splitsen. hoe ik het kan doen
Deze opmerking is gemaakt door de moderator op de site
Hallo - ik heb dezelfde vraag, een manier om dit te doen?
Deze opmerking is gemaakt door de moderator op de site
Kunt u het document splitsen op basis van Kop 1-stijlen als uw "scheidingsteken".
Deze opmerking is gemaakt door de moderator op de site
Hoi Andrew,
Het VBA-script kan het hele document per pagina splitsen. Als u moet splitsen op kop 1, raden we aan om Kutools for Word's Split (Document) functie te proberen.
Deze opmerking is gemaakt door de moderator op de site
Gedownloade fodler opent helemaal niet. Lang wachten.
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL