Come suddividere un documento Word in file separati ogni 5 o n pagine?

AutoreXiaoyang Data di modifica2025-02-28

Quando si lavora con documenti Word di grandi dimensioni, suddividerli in file più piccoli e separati può rivelarsi la soluzione ideale per gestirli, condividerli o modificarli con maggiore facilità. Suddividere il documento ogni 5, 10 o un numero specifico di pagine permette di organizzare in modo più efficiente contenuti lunghi e complessi.

Copiare e incollare manualmente le pagine una per una è un’operazione lunga e inefficiente. In questa guida ti mostreremo alcune procedure rapide e semplici per suddividere un documento Word in file separati ogni *n* pagine.

Suddividere un documento Word in file separati Ogni n pagine con codice VBA

Suddividere un documento Word in file separati Ogni n pagine con una funzionalità straordinaria

Suddividere un documento Word in file separati Ogni n pagine con codice VBA

Per suddividere un documento di grandi dimensioni in file separati in base a ogni *n* pagine, puoi utilizzare il seguente codice VBA. Segui questi semplici passaggi:

Tieni premuto ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
Fare clic su Inserisci>Modulo, quindi copiare e incollare il codice seguente nel modulo vuoto:

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 number of pages per 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 a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", 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

Dopo aver incollato il codice, sempre nella finestra di Microsoft Visual Basic for Applications, fai clic su Strumenti > Riferimenti. Nella finestra di dialogo Riferimenti - Progetto, seleziona l’opzione Microsoft VBScript Regular Expressions 5,5 dall’elenco dei Riferimenti disponibili. Guarda le schermate:
Fare clic su OK, quindi premere F5 per eseguire il codice.
Verrà visualizzata la finestra di dialogo Sfoglia cartella. Seleziona la cartella in cui desideri salvare i file suddivisi e fai clic su OK.

Finestra di dialogo Sfoglia per cartelle

Verrà visualizzato un altro messaggio in cui ti verrà chiesto il numero di pagine da suddividere. Inserisci il numero desiderato e fai clic su OK.

Finestra di dialogo per inserire il numero di pagina su cui basare la suddivisione

Il documento verrà suddiviso in file separati ogni N pagine. Passa alla cartella specificata per visualizzare i risultati.

Il documento viene suddiviso in file separati ogni N pagine

Suddividere un documento Word in file separati Ogni n pagine con una funzionalità straordinaria

Kutools per Word offre una potente funzione Dividi che ti permette di suddividere rapidamente un documento Word di grandi dimensioni in più file separati in base ai titoli 1, alle interruzioni di pagina, alle interruzioni di sezione o alle singole pagine. Questa funzionalità semplifica notevolmente un processo che altrimenti sarebbe noioso e manuale.

Fare clic su KUTOOLS PLUS>Dividi.
Nella finestra di dialogo visualizzata, configurare le seguenti opzioni in base alle proprie esigenze:
1. Seleziona l'opzione Ogni n pagine dal menu Dividi per.
2. Specifica il valore n nella casella di input.
3. Scegli un'area di salvataggio.
4. Specifica un prefisso per i documenti suddivisi.
Al termine delle impostazioni, fai clic su OK. Il documento verrà suddiviso in più file in base all’opzione selezionata (ad esempio, ogni 7 pagine).

Utilizzare la funzione Dividi di Kutools per Word rende semplice ed efficiente suddividere documenti lunghi in file più piccoli e gestibili.

Cerchi un modo più veloce per gestire attività simili in Word? Prova Kutools per Word e semplifica il tuo lavoro quotidiano.

Scarichi Scopra di più

Migliori strumenti per la produttività in Office

Kutools per Word – Migliora la tua esperienza con Word grazie a oltre 100 funzionalità eccezionali!

🤖Funzionalità KUTOOLS AI: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni formato) / Super Traduci (Mantieni formato) / Redazione AI / Correzione AI…

📘Padronanza dei documenti: Dividi pagine, unisci documenti, esporta la selezione in vari formati (PDF, TXT, DOC, HTML…) e conversione batch in PDF…

✏Modifica contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne della tabella / Converti tabella in testo…

🧹Pulizia senza sforzo: Elimina in un attimo spazi extra, interruzioni di sezione, caselle di testo e collegamenti ipertestuali. Per altri strumenti di rimozione, vai al gruppo Rimuovi…

➕Inserimenti creativi: Inserisci separatori delle migliaia, caselle di controllo, pulsanti di opzione, codici QR, codici a barre e immagini multiple. Scopri di più nel gruppo Inserisci…

🔍Selezioni precise: Individua con precisione pagine specifiche, tabelle, forme, paragrafi di intestazione e migliora la navigazione con altre funzionalità ...Seleziona...

⭐Miglioramenti stellari: Passa a qualsiasi posizione / Inserimento automatico di testo ripetitivo / Alterna tra i documenti Windows / 11 strumenti di conversione Strumenti di...

🌍Supporta oltre 40 lingue: Usa Kutools nella tua lingua preferita – tra cui inglese, spagnolo, tedesco, francese, cinese e molte altre!

Kutools for Word schede sulla barra multifunzione

Download gratuito Acquista ora Scopri di più

Office Tab- Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Apri e crea più documenti in nuove schede della stessa finestra, anziché in nuove finestre.
Aumenta la tua produttività del 50 % e riduci centinaia di clic del mouse ogni giorno!

Download gratuito Acquista ora Scopri di più

✨ Kutools for Office – Un’installazione, cinque strumenti potenti!

Include Office Tab Pro·Kutools per Excel·Kutools per Outlook·Kutools per Word·Kutools for PowerPoint

📦 Ottieni tutti gli 5 strumenti in un’unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta immediatamente la produttività

⬇️ Scarica ora 🎁 Acquista la Suite completa 📖 Scopri di più

Migliori strumenti per la produttività in Office

Kutools per Word- Strumenti 100+ per Word

🤖KUTOOLS AI Funzionalità:Assistente AI/Assistente in Tempo Reale/Super Lucida/Super Traduci/Redazione AI/Correzione AI
📘Padronanza dei documenti:Dividi pagine/Unisci Documenti/Conversione batch in PDF
✏Modifica contenuti:Trova e sostituisci in batch/Ridimensiona tutte le immagini
🧹Pulizia senza sforzo:Rimuovi spazi extra/Rimuovi Interruzione di sezione
➕Inserimenti creativi:Inserisci separatori delle migliaia/Inserisci Casella di Controllo/Crea Codice QR
🌍Supporta oltre 40 lingue: Kutools parla la tua lingua – sono supportate oltre 40 lingue!

Download gratuito Acquista ora Scopri di più su Kutools