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

Jak rozdělit dokument na více dokumentů v aplikaci Word?

Pokud máte rozsáhlý wordový dokument, který je třeba rozdělit do více dokumentů, přečtěte si tento návod několik minut. Tento výukový program vám ukáže dvě metody rozdělení dokumentu do více dokumentů.


Rozdělte dokument Word zadaným oddělovačem pomocí VBA

Místo ručního rozdělení dokumentu na více dokumentů tato metoda zavede VBA k rozdělení dokumentu aplikace Word podle zadaného oddělovače v aplikaci Word. Postupujte prosím následovně:

1. lis Alt + F11 společné klávesy pro otevření okna Microsoft Visual Basic for Application;

2, klikněte Vložit > Modula poté vložte pod kód VBA do nového otevíracího okna modulu.

VBA: Rozdělte dokument Word na více dokumentů pomocí oddělovače

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. Pak klikněte na tlačítko Běh nebo stiskněte klávesu F5 pro použití VBA.

4. Ve vyskakovacím dokumentu aplikace Microsoft Word pokračujte kliknutím na tlačítko Ano.

Poznámka:
(1) Nezapomeňte přidat oddělovač stejně jako „///“ v dílčím testu dokumentu mezi každou částí textu, kterou chcete oddělit. Také se můžete změnit „///“ jakýmkoli oddělovačům, aby vyhovovaly vašim potřebám.
(2) Můžete změnit dokumenty "Poznámky" v dílčím testu, aby vyhovoval vašim potřebám.
(3) A dokumenty o rozdělení se uloží na stejné místo s původním souborem.
(4) Na konec původního souboru nemusíte přidávat oddělovač, pokud ano, po rozdělení bude prázdný dokument.

Rozdělte dokument Word na stránku pomocí VBA

Zde je další VBA, který vám pomůže rychle rozdělit jeden dokument Word na více stránek v Wordu. Postupujte prosím následovně:

1. lis Alt + F11 společné klávesy pro otevření okna Microsoft Visual Basic for Application;

2, klikněte Vložit > Modula poté vložte pod kód VBA do nového otevíracího okna modulu.

VBA: Rozdělte dokument na více dokumentů podle stránky v aplikaci 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. Pak klikněte na tlačítko Běh nebo stiskněte tlačítko F5 klíč k použití VBA.

Poznámka: Rozdělení dokumentů bude uloženo na stejné místo s původním souborem.


Rozdělte dokument Word podle záhlaví / stránky / konce oddílu / konce stránky pomocí Kutools pro Word

Pokud máte nainstalovaný program Kutools pro Word, můžete jej použít Rozdělit funkce pro snadné rozdělení jednoho dokumentu na více podle stránky, nadpisu, konce oddílu nebo konce stránky, jak potřebujete ve Wordu.

Kutools pro Word je užitečný doplněk, který vám usnadní práci a zvýší vaši schopnost zpracovávat textový dokument. Zkušební verze zdarma po dobu 60 dnů! Získejte to hned!

1.Klikněte Kutools Plus > Rozdělit k povolení Rozdělit vlastnost.

2. V úvodním dialogovém okně Rozdělení na obrazovce můžete postupovat takto:

(1) Vyberte způsob rozdělení z Rozdělit rozbalovací seznam.
Tato funkce podporuje 6 způsobů rozdělení: nadpis 1, konce stránek, konce sekcí, stránky, každých n stránek a vlastní rozsahy stránek, jak je ukázáno níže:

(2) Klikněte na Procházet tlačítko  specifikovat cílová složka, do které uložíte rozdělené dokumenty;

(3) Zadejte klíčové slovo jako předponu názvů nových dokumentů do souboru Předpona dokumentu box.

Tip:
(1) Pokud zadáte rozdělení aktuálního dokumentu na Každých n stránek, musíte zadat číslo v Každých n stránek krabice;

(2) Pokud zadáte rozdělení aktuálního dokumentu podle vlastních rozsahů stránek, musíte zadat tyto vlastní rozsahy stránek oddělené čárkami v Strana například do políčka zadejte 1, 3-5, 12.

3, Klepněte na tlačítko Ok tlačítko pro zahájení rozdělení.

Poté je aktuální dokument rozdělen zadaným způsobem rozdělení a nové dokumenty budou hromadně uloženy do cílové složky.

Procházení a úpravy více dokumentů Wordu na kartách jako Firefox, Chrome, Internet Prozkoumejte 10!

Možná znáte prohlížení více webových stránek ve Firefoxu / Chrome / IE a přepínáte mezi nimi snadným kliknutím na příslušné karty. Zde karta Office podporuje podobné zpracování, které vám umožní procházet více dokumentů aplikace Word v jednom okně aplikace Word a snadno mezi nimi přepínat kliknutím na jejich karty. Kliknutím zobrazíte bezplatnou zkušební verzi všech funkcí!
Procházejte více slovních dokumentů v jednom okně jako Firefox


Relativní články:



Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (45)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Když se pokusím rozdělit dokument wordový dokument pomocí výše uvedeného kódu VB, jeho rozdělení odstraněním všech obrázků a vložených objektů.
Tento komentář byl moderátorem webu minimalizován
Mám podobný problém jako Dhamo. Začal jsem s velkým souborem s mnoha vloženými ovládacími prvky obsahu. Když jsem rozdělil svůj soubor Word pomocí kódu VB, všechny ovládací prvky obsahu byly převedeny na běžný text. Existuje nějaký způsob, jak rozdělit soubor bez ztráty formátování originálu?
Tento komentář byl moderátorem webu minimalizován
Ahoj. Jak mohu pomocí těchto skriptů rozdělit .doc ne jednu stránku na dokument? Např. 10 nebo 5 stránek na dokument
Tento komentář byl moderátorem webu minimalizován
Vážený týme, VBA pro rozdělení dokumentu na více jednostránkových dokumentů funguje dobře, ale problém je v tom, že rozdělené dokumenty nemají formáty tabulky. (formáty tabulek v hlavním dokumentu nejsou formátovány jako tabulka v rozdělených dokumentech). Předem děkuji, pokud mohu získat makra, aby tabulkové formáty v hlavním dokumentu nebyly narušeny v rozdělených dokumentech
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné děkuji! Můj původní dokument měl nastaveno „pouze pro čtení“. To se do nových dokumentů nepřenáší. Je možné toto přidat?
Tento komentář byl moderátorem webu minimalizován
Kutools pro Word nefunguje pro dokumenty pouze pro čtení.
Tento komentář byl moderátorem webu minimalizován
Bohužel mi nejde rozdělit stránky s Kutools. Co můžu dělat? Zobrazuje se mi tato chybová zpráva: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.Not SupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(cesta řetězce, Booleovská potřebaFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Booleovská potřebaFullPath,A. přístup k System.Securistity.FidPacess. AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList,rect.Boolean Boolean System.PaIODuplicate.bei InternalCreateDirectoryHelper(cesta řetězce, booleovský checkHost) u System.IO.Directory.CreateDirectory(cesta řetězce) u Kutools.FormDocumentSplit.€ () u Kutools.FormDocumentSplit.› (Object “ , EventArgs ” ) bei System. OnClick(EventArgs e) v System.Windows.Forms.Button.OnClick(EventArgs e) v System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) v System.Windows.F orms.Control.WmMouseUp(Zpráva& m, tlačítko Tlačítka myši, klepnutí Int32) u System.Windows.Forms.Control.WndProc(Zpráva& m) u System.Windows.Forms.ButtonBase.WndProc(Zpráva& m) u System.Windows.Forms. Button.WndProc(Message& m) ve System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message&m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Tento komentář byl moderátorem webu minimalizován
Pro důchodce bylo příliš těžké porozumět tomu, co se stalo se starým způsobem Windows sedm, že program byl pro nás starší lidi tak snadný.
Tento komentář byl moderátorem webu minimalizován
Vaše makro funguje oPRAVDU Požaduji však, aby si rozdělené dokumenty zachovaly své úzké okraje a rozložení ve dvou sloupcích. Spíše štěstím než úsudkem(!) se mi toho podařilo dosáhnout ručně a konečný výsledek byl přesně takový, jaký jsem požadoval. Potom jsem použil záznam maker, ale nemám znalosti Word VBA, abych změnil zaznamenaný kód, abych toho dosáhl. Můžete pomoci? Díky předem!
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem první rozdělený kód dokumentu a nefungovalo to. Říkal, že to rozděluje na tři části, ale nestalo se tak.
Tento komentář byl moderátorem webu minimalizován
První VBA rozdělí aktuální dokument oddělovačem "///". Přidali jste do dokumentu oddělovač "///"?
Tento komentář byl moderátorem webu minimalizován
Zapomeňte na to, několikrát jsem to zkoušel s písmeny číslic, což nefungovalo, pak jsem viděl, že to vymazalo moje komentáře. Jen abych si všiml, že první kód mi nefungoval, říkal, že rozděluje dokument na tři části, ale ne.
Tento komentář byl moderátorem webu minimalizován
Ví někdo jak změnit název souborů po rozdělení hlavního chci změnit názvy podle záhlaví souboru
Tento komentář byl moderátorem webu minimalizován
Udělal jsem kód VBA: rozdělit dokument na více dokumentů podle oddělovače, rozdělí dokument, ale bohužel se smaže grafika a také formátování. Existuje na to řešení?
Tento komentář byl moderátorem webu minimalizován
Díky za kód makra
Tento komentář byl moderátorem webu minimalizován
Děkujeme, bylo to velmi užitečné!
Tento komentář byl moderátorem webu minimalizován
Právě jsi mi ušetřil spoustu času, díky!
Tento komentář byl moderátorem webu minimalizován
Díky !

Jedna otázka Máte nějaký nápad uložit všechny rozdělené dokumenty do PDF?
Tento komentář byl moderátorem webu minimalizován
Použil jsem kód ze sekce "Rozdělit dokument Word podle stránky pomocí VBA". Fungovalo to rozdělit dokumenty, ale pokazilo formátování - způsobilo, že to, co mělo být na 2 stránkách, bylo místo toho na 5. Hrál jsem si s kódem a nakonec jsem našel řešení.


Nahradil jsem tento řádek: docSingle.Range.Paste 'vložte obsah schránky do nového dokumentu

s tímto řádkem: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Doufám, že to pomůže některým z vás, kteří měli problémy s formátováním.
Tento komentář byl moderátorem webu minimalizován
Použil jsem kód ze sekce "Rozdělit dokument Word podle stránky pomocí VBA". Jak bych měl upravit kód, abych zachoval původní záhlaví ve všech nových souborech?
Tento komentář byl moderátorem webu minimalizován
jako jednotlivé slučovací doplňky
Tento komentář byl moderátorem webu minimalizován
Funkce Rozdělit (dokument) aplikace Kutools pro Word může uživatelům pomoci rozdělit dokument aplikace Word podle nadpisu 1, konce stránky, konce oddílu nebo stránky.
Kromě toho Kutools pro Word také obsahuje funkci sloučení pro sloučení více dokumentů aplikace Word do jednoho.
Tento komentář byl moderátorem webu minimalizován
Potřebuji rozdělit dokument podle rozsahu stránek. například jsem chtěl rozdělit 1 až 10 stránek v jiném dokumentu. jak to můžu udělat
Tento komentář byl moderátorem webu minimalizován
Ahoj, mám stejnou otázku, jde to nějak udělat?
Tento komentář byl moderátorem webu minimalizován
Můžete rozdělit dokument na základě stylů nadpisu 1 jako svého "oddělovače".
Tento komentář byl moderátorem webu minimalizován
Ahoj Andrew,
Skript VBA dokáže rozdělit celý dokument podle stránek. Pokud potřebujete rozdělit podle nadpisu 1, doporučujeme vyzkoušet funkci Rozdělit (dokument) Kutools pro Word.
Tento komentář byl moderátorem webu minimalizován
Stažený fodler se vůbec neotevře. Čekání na dlouhou dobu.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění