Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come dividere il documento in più documenti in una parola?

Se si dispone di un enorme documento word che è necessario suddividere in più documenti, dedicare alcuni minuti alla lettura di questo tutorial. Questo tutorial ti mostrerà due metodi per dividere un documento in più documenti.

Dividere il documento Word in base al delimitatore specificato con VBA

Dividi la parola documento per pagina con VBA

Dividi documento Word per titolo / pagina / interruzione di sezione / interruzione di pagina con l'uso di Kutools per Word

Divide facilmente un documento Word in più pagine per pagina, sezione / interruzione di pagina o intestazione contemporaneamente!

Confrontando la suddivisione di un documento Word copiando e incollando, Kutools per Word faciliterà il tuo lavoro e migliorerà notevolmente l'efficienza del tuo lavoro grazie alla sua funzione Dividi, che può dividere rapidamente il documento Word di apertura corrente su più pagine per pagina, per interruzione di sezione, per pagina break, o intestazione 1 di cui hai bisogno. Fai clic per la prova gratuita di 60-day!
annuncio diviso i documenti per pagina

Kutools for Word: Aggiungi 100 Nuove funzionalità avanzate a Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Abilitare Modifica a schede e navigazione in ufficio, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Porta il vecchio aspetto di Office 2003 Back a Office 2007, 2010, 2013, 2016 e 2019.

freccia blu bolla destra Dividere il documento Word in base al delimitatore specificato con VBA

Invece di suddividere manualmente il documento in più documenti, questo metodo introdurrà un VBA per dividere un documento di Word dal delimitatore specificato in Word. Si prega di fare come segue:

1. stampa Alt + F11 chiavi insieme per aprire la finestra di Microsoft Visual Basic per l'applicazione;

2. Clic inserire > Moduloe quindi incollare sotto il codice VBA nella nuova finestra del modulo di apertura.

VBA: Dividi documento di Word in più documenti in Delimiter

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. Quindi fare clic Correre pulsante o premere il tasto F5 per applicare il VBA.

4. Nel documento Microsoft Word che si apre, fare clic sul pulsante Sì per procedere.

Nota:
(1) Assicurati di aggiungere il delimitatore come lo stesso "///" nel sottotest del documento tra ogni sezione di testo che si desidera separare. Inoltre, puoi cambiare "///" a qualsiasi delimitatore per soddisfare le tue necessità.
(2) È possibile modificare i documenti "Gli appunti" nel sub Test per soddisfare le tue esigenze.
(3) E i documenti di suddivisione verranno salvati nello stesso posto con il file originale.
(4) Non è necessario aggiungere delimitatore alla fine del file originale, se lo si fa, ci sarà un documento vuoto dopo la divisione.


freccia blu bolla destra Dividi la parola documento per pagina con VBA

Ecco un altro VBA per aiutarti a dividere rapidamente un documento Word in più per pagina in Word. Si prega di fare come segue:

1. stampa Alt + F11 chiavi insieme per aprire la finestra di Microsoft Visual Basic per l'applicazione;

2. Clic inserire > Moduloe quindi incollare sotto il codice VBA nella nuova finestra del modulo di apertura.

VBA: Dividi documento in più documenti per pagina in Word

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 _
(the one currently containing the Selection)
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 (there won't be a 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. Quindi fare clic Correre pulsante o premere F5 chiave per applicare il VBA.

Nota: I documenti di suddivisione verranno salvati nello stesso posto con il file originale.


freccia blu bolla destra Dividi documento Word per titolo / pagina / interruzione di sezione / interruzione di pagina con l'uso di Kutools per Word

Se hai installato Kutools per Word, puoi applicarne il relativo Diviso funzione per dividere facilmente un documento in più per pagina, intestazione, interruzione di sezione o interruzione di pagina, come necessario in Word ..

Kutools for Word è un utile componente aggiuntivo per semplificare il lavoro e migliorare la capacità di elaborazione del documento word. Prova gratuita per i giorni 45! Scaricalo ora!

1. Clic Kutools Plus > Diviso per abilitare la funzione Dividi.
documento diviso documenti 001

2. Nella finestra di dialogo Apertura divisa sullo schermo, per favore (1) specificare la cartella di destinazione in cui salvare i documenti suddivisi, (2) verifica i criteri che dividi tra raggruppati per menu a discesa e (3) fare clic su OK pulsante. Vedi screenshot:

E ora il documento Word corrente viene diviso in base ai criteri specificati (Intestazione 1 nel mio caso) e la cartella di destinazione si apre automaticamente con i documenti divisi. Vedi screenshot:
documento diviso documenti 002

Nota: Questa fantastica funzione di divisione supporta anche la divisione di un documento Word per pagina, per interruzione di pagina e per interruzione di sezione in Word. Vedi sotto screenshot:

Dividere un documento Word in più per pagina:

Dividere un documento Word in più per l'interruzione di pagina:

Dividere un documento Word in più per interruzione di sezione:

Navigazione a schede e modifica di più documenti di Word come Firefox, Chrome, Internet Esplora 10!

Potrebbe essere familiare visualizzare più pagine Web in Firefox / Chrome / IE e passare da una all'altra facendo clic sulle schede corrispondenti facilmente. Qui, Office Tab supporta l'elaborazione simile, che consente di sfogliare più documenti di Word in una finestra di Word e passare facilmente da una all'altra facendo clic sulle relative schede. Fai clic per la prova gratuita di tutte le funzionalità!
Sfoglia più documenti di parole in una finestra come Firefox


freccia blu bolla destraArticoli relativi:

Unisci più documenti e mantieni il formato in parola




Kutools for Word

Più di 100 Funzioni avanzate per Word 2003, 2007, 2010, 2013, 2016 e 2019

tiro-kutools-700-225-kte

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Prince · 1 years ago
    Thank you, this was very helpful!
  • To post as a guest, your comment is unpublished.
    Ramin · 1 years ago
    Thanks for the macro code
  • To post as a guest, your comment is unpublished.
    LK · 2 years ago
    I did the VBA Code: split document into multiple documents according to delimiter, it does split the document but unfortunately the graphics are deleted, also formatting. Is there a solution to this?
  • To post as a guest, your comment is unpublished.
    Panos HalfMan · 2 years ago
    Does anyone knows how to change the name of the files after splitting the main one

    I want to change the names according to Header of the file
  • To post as a guest, your comment is unpublished.
    Geo. Kelley · 2 years ago
    Forget it, I tried several times with the letters numbers, which did not work, then I seen it erased my comments.

    Just to note the first code did not work for me, it said it was breaking the document into three sections, but did not.