Hoe de huidige of elke pagina opslaan als afzonderlijk Word-document?

Als uw Word-document meerdere pagina's bevat, hoeft u nu slechts één huidige pagina op te slaan als een nieuw Word-bestand. Normaal gesproken kunt u de huidige paginagegevens kopiëren en in een nieuw Word-bestand plakken en het vervolgens opslaan. Maar in dit artikel zal ik het hebben over het opslaan van de huidige of elke pagina als afzonderlijke documenten van een Word-bestand.

Sla de huidige pagina op als een nieuw Word-document met VBA-code

Sla elke pagina op als afzonderlijke Word-documenten met Kutools voor Word

Sla de huidige pagina op als een nieuw Word-document met VBA-code

De volgende VBA-code kan u helpen om de huidige pagina-inhoud op te slaan in een nieuw Word-bestand, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: huidige pagina opslaan als nieuw Word-document:

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. En druk dan op F5 sleutel om deze code uit te voeren, voer in het uitgeklapte dialoogvenster een naam in voor het nieuwe bestand, zie screenshot:

4. Dan klikken OK knop, en kies in het tweede uitgeklapte venster een map om het nieuwe bestand uit te voeren, zie screenshot:

5. Klikken OK knop, de huidige pagina-inhoud is opgeslagen als een nieuw Word-bestand, kunt u naar de map gaan om het resultaat te bekijken.

Sla elke pagina op als afzonderlijke Word-documenten met Kutools voor Word

Als u elke pagina van het hele document als afzonderlijke bestanden wilt opslaan, kan de Kutools for Word's Split functie kan je een plezier doen.

Na het installeren van Kutools for Word, voer de volgende stappen uit:

1. Klikken Koetools Plus > Split, zie screenshot:

2. In de Document splitsen dialoog venster:

(1.) Selecteer Pagina van het Gesplitst door keuzelijst;

(1.) Klik knop om een ​​map te kiezen om de nieuwe bestanden uit te voeren;

(2.) Specificeer vervolgens het voorvoegsel voor de nieuwe opgeslagen bestanden zoals u nodig heeft.

3. Klik na het voltooien van de instellingen op OK knop om te beginnen met splitsen, en vervolgens zijn alle pagina's in het Word-document opgeslagen als afzonderlijke bestanden in de specifieke map zoals in de volgende schermafbeelding:

Klik om Kutools voor Word en nu gratis uit te proberen!

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

⭐ Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀

Gratis download     Lees meer     KOOP NU