Přejít k hlavnímu obsahu

Jak uložit aktuální nebo každou stránku jako samostatný dokument aplikace Word?

Pokud je ve vašem dokumentu Wordu více stránek, nyní stačí uložit pouze jednu aktuální stránku jako nový soubor Wordu. Normálně můžete zkopírovat a vložit aktuální data stránky do nového souboru Word a poté je uložit. Ale v tomto článku budu hovořit o tom, jak uložit aktuální nebo každou stránku jako samostatné dokumenty ze souboru Word.

Uložit aktuální stránku jako nový dokument Word s kódem VBA

Uložte každou stránku jako samostatné dokumenty Word pomocí Kutools pro Word


Uložit aktuální stránku jako nový dokument Word s kódem VBA

Následující kód VBA vám pomůže uložit aktuální obsah stránky do nového souboru Word, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Uložit aktuální stránku jako nový dokument Word:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, ve vyskakovacím dialogovém okně zadejte název nového souboru, viz screenshot:

doc uložit aktuální stránku 1

4. Potom klepněte na tlačítko OK Tlačítko a ve druhém vyskakovacím okně vyberte složku pro výstup nového souboru, viz screenshot:

doc uložit aktuální stránku 2

5, klikněte OK Tlačítko, aktuální obsah stránky byl uložen jako nový soubor aplikace Word, můžete přejít do složky a zobrazit výsledek.


Uložte každou stránku jako samostatné dokumenty Word pomocí Kutools pro Word

Pokud chcete uložit každou stránku celého dokumentu jako samostatné soubory, Kutools pro WordJe Rozdělit funkce vám může udělat laskavost.

Kutools pro Word : s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. 

Po instalaci Kutools pro Word, proveďte prosím následující kroky:

1, klikněte Kutools Plus > Rozdělit, viz screenshot:

2. V Rozdělit dokument dialogové okno:

(1.) Vyberte Strana z Rozdělit rozbalovací seznam;

(1.) Klikněte doc uložit aktuální stránku 5 tlačítko pro výběr složky pro výstup nových souborů;

(2.) A poté podle potřeby zadejte předponu pro nové uložené soubory.

3. Po dokončení nastavení klikněte na OK tlačítko pro zahájení rozdělení a poté byly všechny stránky v dokumentu Word uloženy jako samostatné soubory do konkrétní složky, jak ukazuje následující snímek obrazovky:

doc uložit aktuální stránku 6

Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations