Come dividere un documento di Word in file separati ogni 5 on pagine?
Se si dispone di un documento Word di grandi dimensioni che contiene centinaia di pagine e ora, si desidera dividere questo documento in file separati ogni 10 on pagine. Esiste un modo semplice e veloce per risolvere questo lavoro senza copiare e incollare le pagine una per una?
Dividi un documento di Word in file separati ogni 10 on pagine con codice VBA
Dividi un documento di Word in file separati ogni 10 on pagine con una funzionalità straordinaria
Dividi un documento di Word in file separati ogni 10 on pagine con codice VBA
Per dividere un documento di grandi dimensioni in file separati basati su ogni 10 on pagine, il seguente codice VBA può farti un favore, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Quindi fare clic su inserire > Moduli, copia e incolla sotto il codice nel modulo vuoto aperto:
Codice VBA: dividi un documento in file separati ogni 10 on pagine:
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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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
3. Dopo aver incollato il codice sopra, sempre nel file Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti, e nel saltò fuori Referenze-Progetto finestra di dialogo, controllare Espressioni regolari di Microsoft VBScript 5.5 opzione nel Riferimenti disponibili casella di riepilogo, vedi screenshot:
4. Quindi fare clic OK pulsante, quindi premere F5 chiave per eseguire questo codice e un file Sfoglia per cartella viene visualizzata la finestra di dialogo, selezionare una cartella in cui si desidera inserire i file divisi, vedere screenshot:
5. Quindi fare clic OK pulsante e viene visualizzata un'altra finestra di messaggio per ricordarti di inserire il numero di conteggio delle pagine che desideri dividere in base a, vedi screenshot:
6. E poi clicca OK pulsante, il documento Word attivo è stato suddiviso in file separati ogni 10 pagine, puoi andare nella cartella specificata per vedere i risultati:
Dividi un documento di Word in file separati ogni 10 on pagine con una funzionalità straordinaria
Kutools for Word include una potente funzionalità: Diviso funzione, con questa utility, puoi dividere rapidamente un documento Word di grandi dimensioni in più file separati in base a Intestazione1, interruzione di pagina, interruzione di sezione e pagina.
Suggerimenti:Per applicare questo Diviso in primo luogo, dovresti scaricare il file Kutools for Worde quindi applica la funzione in modo rapido e semplice.
Dopo l'installazione Kutools for Word, per favore fai come questo:
1. Clic Kutools Plus > Diviso, vedi screenshot:
2. Nella finestra di dialogo saltata fuori, imposta le seguenti operazioni di cui hai bisogno, vedi screenshot:
3. Dopo aver terminato le impostazioni, fare clic su OKe l'intero documento verrà suddiviso in più file in base a ciascuna pagina, vedi screenshot:
Fai clic per scaricare Kutools per Word e la prova gratuita ora!
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...