KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come dividere un documento Word in più documenti?

AutoreAmanda Li Data di modifica

Se hai un documento Word di grandi dimensioni da suddividere in più file più piccoli, questa guida ti presenta tre metodi efficaci. Che tu preferisca usare VBA per dividere in base a un delimitatore specifico o per pagine, oppure scegliere la funzionalità semplificata di Kutools per Word, troverai la soluzione perfetta per le tue esigenze.


Dividi un documento Word in base a un delimitatore specificato con VBA

Piuttosto che suddividere manualmente un documento, puoi sfruttare VBA per dividerlo automaticamente in base a un delimitatore specifico. Ecco come fare:

  1. Premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
  2. Fai clic su Inserisci>Modulo, quindi incolla il codice VBA riportato di seguito 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 Esegui o premi F5 per eseguire il codice VBA.
  4. Nella finestra di dialogo Microsoft Word, conferma facendo clic su .

    Finestra di dialogo di conferma

Note:

  • Lo script cercherà «///»(alla riga 22 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 «///», aggiorna il codice VBA in modo che corrisponda al delimitatore effettivo oppure modifica il documento inserendo «///» nei punti di suddivisione desiderati.
  • Puoi sostituire «Note» alla riga 22 del codice con qualsiasi testo per creare un prefisso più significativo nei nomi dei documenti suddivisi.
  • I documenti suddivisi verranno salvati nella stessa posizione del file originale.
  • Non è necessario inserire un delimitatore alla fine del documento; in caso contrario, verrà generato un file vuoto.

Dividi un documento Word per intestazione/pagina/Interruzione di sezione/Interruzione di pagina utilizzando Kutools per Word

Kutools per Word offre un modo più comodo e flessibile per suddividere un documento rispetto ai metodi manuali o a VBA, con diverse opzioni che ti permettono di adattare il processo alle tue esigenze specifiche: puoi dividere il documento in base a intestazioni, pagine, interruzioni di sezione, interruzioni di pagina, ogni *n* pagine o intervalli di pagine personalizzati.

Kutools per Word

Kutools per Word ti permette di gestire più rapidamente le attività quotidiane sui documenti grazie a strumenti pratici integrati direttamente in Microsoft Word—senza codifica e senza configurazioni complesse.

  • Scrittura, perfezionamento, traduzione e sintesi con intelligenza artificiale
  • Trova e sostituisci in batch tra i documenti
  • Unisci e dividi facilmente documenti di Word
  • Conversione batch da Word a PDF e viceversa
  1. Fai clic su KUTOOLS PLUS>Dividiper attivare la funzionalità Dividi.

    Opzione Dividi nella scheda Kutools Plus sulla barra multifunzione

  2. Nella finestra di dialogo Dividi documento, configura le seguenti opzioni:
    Finestra di dialogo Dividi documento di Kutools
    1. Scegli un metodo di suddivisione dal menu a discesa Dividi per. Le opzioni disponibili includono: Intestazioni 1, Interruzione di pagina, Interruzione di sezione, Pagine, Ogni n pagine o intervalli di pagine personalizzati.Opzioni di suddivisione
    2. Fai clic sul pulsante SfogliaPulsante di selezione del percorso per selezionare una cartella di destinazione per i documenti suddivisi.
    3. Inserisci una parola chiave come prefisso per i nuovi nomi dei documenti nel campo Prefisso del documento. Suggerimento: Cliccando sul pulsante AggiornaPulsante Aggiorna, puoi visualizzare in anteprima il nome del documento suddiviso nella casella Anteprima.
    4. Fai clic su OK.

Il documento verrà suddiviso secondo il metodo specificato e i file generati verranno salvati nella cartella designata.

Note:

  • Se si suddivide per Ogni n pagine, specificare il numero nella casella corrispondente.

    Dividi ogni n pagine

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

    Intervalli di pagine personalizzati

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

Naviga e modifica più documenti di Word con le schede, proprio come fai in Chrome ed Edge!

Proprio come fai navigando tra più pagine web in Chrome, Safari ed Edge, Office Tab ti permette di aprire e gestire più documenti di Word in un’unica finestra. Passare da un documento all’altro è ora facilissimo: basta un clic sulla scheda corrispondente!
Prova subito Office Tab gratuitamente!

Sfoglia più documenti Word in una sola finestra, proprio come in Chrome


Dividi un documento Word per pagina con VBA

Se devi suddividere rapidamente un documento Word in più file, ognuno contenente una singola pagina, puoi automatizzare l’operazione con una macro VBA. Segui i passaggi indicati di seguito:

  1. Premi Alt + F11 per aprire la finestra di 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 Esegui o premi F5 per eseguire il codice VBA.

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


Articoli correlati:


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!

Schede Kutools for Word sulla barra multifunzione
 
 

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!

✨ 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à

Migliori strumenti per la produttività in Office

Kutools per Word- Strumenti 100+ per Word