Come dividere un documento Word in file separati ogni 5 o n pagine?
Quando si lavora con documenti Word di grandi dimensioni, potrebbe essere necessario dividere il documento in file più piccoli e separati per una gestione, condivisione o modifica più semplice. Dividere un documento ogni 5, 10 o un numero specifico di pagine può essere una soluzione pratica per gestire contenuti lunghi in modo più efficiente.
Copiare e incollare manualmente le pagine una per una è un processo lungo e inefficiente. In questo tutorial, introdurremo metodi rapidi e facili per dividere un documento Word in file separati ogni N pagine:
Dividi un documento Word in file separati ogni N pagine con il codice VBA
Dividi un documento Word in file separati ogni N pagine con una funzione straordinaria
Dividi un documento Word in file separati ogni N pagine con il codice VBA
Per dividere un documento grande in file separati in base a ogni N pagine, il seguente codice VBA può aiutarti. Segui questi passaggi:
- Tieni premuto ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
- Clicca su Inserisci > Modulo, e copia e incolla il seguente codice nel modulo vuoto:
- Dopo aver incollato il codice, rimani nella Microsoft Visual Basic for Applications finestra, clicca su Strumenti > Riferimenti. Nella Riferimenti - Progetto finestra di dialogo, seleziona l'opzione Microsoft VBScript Regular Expressions 5.5 dalla lista dei Riferimenti disponibili . Vedi gli screenshot:
- Clicca OK, quindi premi F5 per eseguire il codice.
- Apparirà una finestra di dialogo Sfoglia cartella. Seleziona la cartella in cui desideri salvare i file divisi e clicca OK.
- Apparirà un altro prompt che ti chiederà il numero di pagine in base al quale vuoi dividere. Inserisci il numero desiderato di pagine e clicca OK.
- Il documento verrà diviso in file separati ogni N pagine. Vai alla cartella specificata per visualizzare i risultati.
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
Dividi un documento Word in file separati ogni N pagine con una funzione straordinaria
Kutools for Word offre una potente funzione Dividi che ti consente di dividere rapidamente un grande documento Word in più file separati in base al Titolo 1, interruzioni di pagina, interruzioni di sezione o pagine. Questa funzione semplifica quello che altrimenti sarebbe un processo manuale tedioso.
- Clicca su Kutools Plus > Dividi.
- Nella finestra di dialogo che appare, configura le seguenti opzioni come necessario:
- Seleziona l'opzione Ogni n pagine dal menu Dividi per.
- Specifica il valore di n nella casella di input.
- Scegli una posizione di salvataggio.
- Specifica un prefisso per i documenti divisi.
- Dopo aver completato le impostazioni, clicca OK. Il documento verrà diviso in più file in base all'opzione selezionata (ad esempio, ogni 7 pagine).
Utilizzando la funzione Dividi in Kutools for Word, dividere documenti grandi in file più piccoli e gestibili diventa semplice ed efficiente.
I migliori strumenti per la produttività in ufficio
Kutools for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...
✏ Modifica del Testo: 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 Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...
⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!
✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!
Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint
📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività
I migliori strumenti per la produttività in ufficio
Kutools for Word - 100+ strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!