Skip to main content

Come dividere un Documento Word in più Documenti?

Author: Amanda Li Last Modified: 2025-08-06

Se hai un Documento Word di grandi dimensioni che deve essere suddiviso in più documenti più piccoli, questa guida ti mostrerà tre metodi efficaci. Che tu preferisca utilizzare VBA per dividere tramite un delimitatore specifico o per pagina, oppure affidarti alla funzionalità semplificata di Kutools per Word, troverai la soluzione più adatta alle tue esigenze.


Dividi un Documento Word tramite delimitatore specifico con VBA

Invece di dividere manualmente un documento, puoi utilizzare VBA per suddividere un Documento Word tramite un delimitatore specifico. Segui questi passaggi:

  1. Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
  2. Fai clic su Inserisci > Modulo, e incolla il codice VBA qui sotto nella finestra del modulo.
    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. Fai clic sul pulsante Run oppure premi F5 per eseguire il VBA.
  4. Nella finestra popup di Microsoft Word, conferma facendo clic su Yes.

    Confirmation dialog

Note:

  • Lo script cercherà "///" (alla riga22 del codice) all'interno del documento per identificare i punti in cui suddividere il testo in file separati. Se il delimitatore nel tuo documento è diverso da "///", devi aggiornare il codice VBA con il delimitatore corretto oppure modificare il documento inserendo "///" nei punti desiderati per la divisione.
  • Puoi sostituire "Notes" alla riga22 del codice con qualsiasi testo per creare un prefisso del nome file più significativo per i tuoi documenti divisi.
  • I documenti divisi verranno salvati nella stessa posizione del file originale.
  • Non è necessario alcun delimitatore alla fine del documento; altrimenti verrà creato un file vuoto.

Dividi un Documento Word per intestazione/interruzione di pagina/interruzione di sezione/interruzione di pagina utilizzando Kutools per Word

Kutools per Word offre un modo più pratico e flessibile per dividere un documento rispetto ai metodi manuali o VBA. Permette di suddividere un documento per intestazioni, pagine, interruzioni di sezione, interruzioni di pagina, ogni n pagine o intervalli di pagine personalizzati, consentendoti di adattare il processo di divisione alle tue esigenze specifiche.

Kutools per Word,dotato di intelligenza artificiale 🤖, offre oltre 100 funzionalità pratiche per semplificare i tuoi compiti.
  1. Fai clic su Kutools Plus > Split per attivare la funzione Split.

    Split option on the Kutools Plus tab on the ribbon

  2. Nella finestra di dialogo Dividi documento, configura le seguenti opzioni:
    Kutools Split Document dialog box
    1. Scegli un metodo di divisione dal menu a discesa Split by. Le opzioni disponibili includono Titolo1, interruzioni di pagina, interruzioni di sezione, pagine, ogni n pagine o intervalli di pagine personalizzati.

      Split by options

    2. Fai clic su Sfoglia pulsante Path selection button per selezionare una cartella di destinazione per i documenti divisi.
    3. Inserisci una parola chiave come prefisso per i nuovi nomi dei documenti nel Prefisso del documento campo. Suggerimento: Facendo clic sul Aggiorna pulsante Refresh button puoi visualizzare in anteprima i nomi dei documenti divisi nella Anteprima casella.
    4. Fai clic su Ok.

Il documento verrà diviso secondo il metodo specificato e i nuovi file saranno salvati nella cartella designata.

Note:

  • Se dividi per Ogni n pagine, specifica il numero nell'apposita casella.

    Split by Every n pages

  • Per intervalli di pagine personalizzati, inseriscili separati da virgole (ad esempio,1,3-5,12).

    Custom Page Ranges

Kutools per Word è il componente aggiuntivo definitivo per Word che semplifica il tuo lavoro e potenzia le tue abilità di elaborazione dei documenti. Provalo subito!

Navigazione a schede e modifica per più documenti di Word, proprio come in Chrome e Edge!

Proprio come quando si naviga tra più pagine web in Chrome, Safari e Edge, Office Tab ti permette di aprire e gestire più documenti di Word in una sola finestra. Passare da un documento all'altro è ora semplice con un clic sulle loro schede!
Prova Office Tab gratuitamente ora!

Browse multiple word documents in one window just like in Chrome


Dividi un Documento Word per pagina con VBA

Se hai bisogno di dividere rapidamente un Documento Word in più documenti, ciascuno contenente una pagina, puoi utilizzare una macro VBA per automatizzare questa operazione. Segui i passaggi qui sotto:

  1. Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
  2. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice VBA nella nuova finestra del modulo:
    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
    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 (no 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. Fai clic sul pulsante Run oppure premi F5 per eseguire il VBA.

Nota: I documenti divisi verranno salvati nella stessa posizione del file originale.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word