Cum să împărțiți un document Word în fișiere separate la fiecare 5 sau n pagini?

Când lucrați cu documente Word mari, poate fi necesar să împărțiți documentul în fișiere mai mici, separate, pentru o manipulare, partajare sau editare mai ușoară. Împărțirea unui document la fiecare 5 sau 10 sau un anumit număr de pagini poate fi o soluție practică pentru gestionarea mai eficientă a conținutului lung.

Copierea și lipirea manuală a paginilor una câte una necesită timp și este ineficientă. În acest tutorial, vom introduce metode rapide și ușoare de a împărți un document Word în fișiere separate la fiecare N pagini:

Împărțiți un document Word în fișiere separate la fiecare N pagini cu cod VBA

Împărțiți un document Word în fișiere separate la fiecare N pagini cu o caracteristică uimitoare

Împărțiți un document Word în fișiere separate la fiecare N pagini cu cod VBA

Pentru a împărți un document mare în fișiere separate, bazate pe fiecare N pagini, următorul cod VBA vă poate ajuta. Urmați acești pași:

1. Se ține apăsată ALT + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși copiați și inserați următorul cod în modulul gol:

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the page count you want to split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

3. După lipirea codului, încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte. În Referințe - Proiect caseta de dialog, verificați Expresii regulate Microsoft VBScript 5.5 opțiune de la Referințe disponibile listă. Vezi capturi de ecran:
4. Clic OK, Apoi apăsați F5 pentru a rula codul.
5. A Căutați dosarul va apărea caseta de dialog. Selectați folderul în care doriți să salvați fișierele împărțite și faceți clic OK.



6. Va apărea o altă solicitare care va cere numărul de pagini pe care doriți să le împărțiți. Introduceți numărul de pagini dorit și faceți clic OK.



7. Documentul va fi împărțit în fișiere separate la fiecare N pagini. Navigați la folderul specificat pentru a vedea rezultatele.

Împărțiți un document Word în fișiere separate la fiecare N pagini cu o caracteristică uimitoare

Kutools pentru Cuvânt include o caracteristică puternică- Despică funcție, cu acest utilitar, puteți împărți rapid un document Word mare în mai multe fișiere separate pe baza Heading1, break de pagină, break de secțiune și pagină.

După instalare Kutools pentru Cuvânt, vă rugăm să faceți acest lucru:

1. Clic Kutools Plus > Despică, vezi captura de ecran:

2. În caseta de dialog pop-out, vă rugăm să setați următoarele operații după cum aveți nevoie, vedeți captura de ecran:

3. După terminarea setărilor, faceți clic pe OK, iar întregul document va fi împărțit în mai multe fișiere pe baza fiecărei pagini, consultați captura de ecran:

Faceți clic pentru a descărca Kutools pentru Word și încercarea gratuită acum!

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...

📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...

✏ Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...

➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...

???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀

Descărcare gratuită     Cumpară acum     Aflați mai multe despre Kutools pentru Word

 

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word

• 🤖 Caracteristici Kutools AI: Genera, Rescrie, Rezuma, Traduceți Documente / Obțineți răspunsuri rapide / Document polonez (format păstrat)
• 📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Conversie lot în PDF
• ✏ Editarea continutului: Găsiți și înlocuiți în lot / Redimensionați toate imaginile
• 🧹 Curățare fără efort: Eliminați spațiile suplimentare / Eliminați secțiunile de secțiune
• ➕ Inserții creative: Introduceți o mie de separatoare / Introduceți casete de selectare / Creați coduri QR

Descărcare gratuită Cumpară acum Aflați mai multe despre Kutools