Come dividere un Documento Word in più Documenti?
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
- Dividi un Documento Word per intestazione/interruzione di pagina/interruzione di sezione/interruzione di pagina utilizzando Kutools per Word
- Dividi un Documento Word per pagina con VBA
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:
- Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
- 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
- Fai clic sul pulsante Run oppure premi F5 per eseguire il VBA.
- Nella finestra popup di Microsoft Word, conferma facendo clic su Yes.
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.
- Fai clic su Kutools Plus > Split per attivare la funzione Split.
- Nella finestra di dialogo Dividi documento, configura le seguenti opzioni:
- 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.
- Fai clic su Sfoglia pulsante
per selezionare una cartella di destinazione per i documenti divisi.
- Inserisci una parola chiave come prefisso per i nuovi nomi dei documenti nel Prefisso del documento campo. Suggerimento: Facendo clic sul Aggiorna pulsante
puoi visualizzare in anteprima i nomi dei documenti divisi nella Anteprima casella.
- Fai clic su Ok.
- 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.
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.
- Per intervalli di pagine personalizzati, inseriscili separati da virgole (ad esempio,1,3-5,12).
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!
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:
- Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
- 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
- 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!

I migliori strumenti per la produttività in ufficio
Kutools per Word - 100+ Strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Converti in batch in PDF
- ✏ Modifica dei Contenuti: Trova e sostituisci in batch / Ridimensiona tutte le immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Inserisci Caselle di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!