Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se împarte documentul în mai multe documente în cuvânt?

Dacă aveți un document de cuvânt masiv pe care trebuie să-l împărțiți în mai multe documente, faceți câteva minute pentru a citi acest tutorial. Acest tutorial vă va arăta două metode de împărțire a unui document în mai multe documente.

Split document Word de către delimiter specificate cu VBA

Split document Word pe pagină cu VBA

Split document Word după rubrică / pagină / secțiune pauză / pauză de pagină folosind Kutools pentru Word

Divizați cu ușurință un document Word la mai multe prin pagină, secțiune / pauză de pagină sau îndreptați-vă simultan!

Comparând cu împărțirea unui document Word prin copiere și lipire, Kutools pentru Word vă va ușura munca și vă va îmbunătăți dramatic eficiența muncii prin caracteristica Split, care poate împărți rapid documentul curent de deschidere a Word la mai multe pagini, după pauză de secțiune, după pagină pauză sau după Rubrica 1, după cum doriți. Faceți clic pe încercarea gratuită 60-zi!
împărți documentele pe pagină

Kutools pentru Cuvânt: Adăugați noi funcții avansate 100 la Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab-ul Office: Permite Editare și navigare cu file în Office, La fel ca Chrome, Firefox, IE 8 / 9 / 10.
Meniul clasic pentru Office: Aduceți vechea privire la Office 2003 înapoi pentru Office 2007, 2010, 2013, 2016 și 2019.

săgeată albastru dreapta bule Split document Word de către delimiter specificate cu VBA

În loc să divizi manual documentul în mai multe documente, această metodă va introduce o VBA pentru a împărți un document Word delimitatorul specificat în Word. Procedați după cum urmează:

1. presa Alt + F11 chei împreună pentru a deschide fereastra Microsoft Visual Basic pentru aplicație;

2. Clic Insera > Module, apoi lipiți sub codul VBA în noua fereastră de deschidere a modulului.

VBA: Divizați documentul Word în mai multe documente prin 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. Apoi apasa Alerga sau apăsați tasta F5 pentru a aplica VBA.

4. În documentul Microsoft Word, faceți clic pe butonul Yes pentru a merge mai departe.

Notă:
(1) Asigurați-vă că adăugați delimiterul dvs. ca fiind același "///" în subtestul la documentul dintre fiecare secțiune de text pe care doriți să o separați. De asemenea, vă puteți schimba "///" la orice delimitatori pentru a vă satisface nevoia.
(2) Puteți schimba documentele „Note“ în sub test pentru a se potrivi nevoilor dvs.
(3) Și documentele de divizare vor fi salvate în același loc cu fișierul original.
(4) Nu este necesar să adăugați delimitator la sfârșitul fișierului original, dacă este cazul, va exista un document gol după divizare.


săgeată albastru dreapta bule Split document Word pe pagină cu VBA

Aici este un alt VBA pentru a vă ajuta să împărțiți rapid un document Word la mai multe de pagină în Word. Procedați după cum urmează:

1. presa Alt + F11 chei împreună pentru a deschide fereastra Microsoft Visual Basic pentru aplicație;

2. Clic Insera > Module, apoi lipiți sub codul VBA în noua fereastră de deschidere a modulului.

VBA: Divizare document în mai multe documente de pagină în 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. Apoi apasa Alerga sau apăsați F5 cheie pentru a aplica VBA.

Notă: Documentele de divizare vor fi salvate în același loc cu fișierul original.


săgeată albastru dreapta bule Split document Word după rubrică / pagină / secțiune pauză / pauză de pagină folosind Kutools pentru Word

Dacă aveți instalat programul Kutools pentru Word, îl puteți aplica Despică funcția de a împărți cu ușurință un document în mai multe prin pagină, rubrică, pauză de secțiune sau pauză de pagină, după cum aveți nevoie în Word.

Kutools pentru Cuvânt este un add-in la îndemână pentru a vă ușura munca și pentru a vă îmbunătăți capacitatea de procesare a documentului cuvânt. Free Trial pentru 45 zile! Ia-l acum!

1. Clic Kutools Mai mult > Despică pentru a activa funcția Split.
doc divizat documente 001

2. În fereastra de deschidere Split pe ecran, vă rog (1) specificați dosarul de destinație pe care îl veți salva în documentele divizate, (2) verificați criteriile pe care le veți împărți de la Împărțiți cu lista derulantă și (3) faceți clic pe OK buton. Vedeți captura de ecran:

Și acum documentul curent Word este împărțit după criteriile specificate (Rubrică 1 în cazul meu), iar dosarul de destinație se deschide automat cu documente împărțite. Vedeți captura de ecran:
doc divizat documente 002

Notă: Această caracteristică fantastică Split acceptă, de asemenea, divizarea unui document Word by page, pauză de pagină și pauză de secțiune cu ușurință în Word. Vedeți mai jos capturi de ecran:

Împărțiți un document Word pe mai multe pe pagină:

Împărțiți un document Word pe mai multe prin ruperea paginii:

Împărțiți un document Word pe mai multe prin rubricile secțiunii:

Executarea și editarea mai multor fișiere Word ca Firefox, Chrome, Internet Explorați 10!

Este posibil să fiți familiarizați cu vizualizarea mai multor pagini web în Firefox / Chrome / IE și să comutați între ele făcând clic ușor pe filele corespunzătoare. Aici, Office Tab acceptă procesare similară, care vă permite să răsfoiți mai multe documente Word într-o fereastră Word și să le comutați cu ușurință între ele făcând clic pe fila lor. Faceți clic pentru a încerca caracteristicile complete gratuite!
Căutați mai multe documente de tip cuvânt într-o singură fereastră ca Firefox


săgeată albastru dreapta buleArticole relative:

Mergeți la mai multe documente și păstrați formatul în cuvânt




Kutools pentru Cuvânt

Mai mult decât funcțiile avansate 100 pentru Word 2003, 2007, 2010, 2013, 2016 și 2019

filmare kutools-700-225-KTE

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.
    Maya · 1 months ago
    The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
  • To post as a guest, your comment is unpublished.
    Lisa · 6 months ago
    The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Savvyno · 1 months ago
      I am working on this as well but have not found a way to do it besides manually.
    • To post as a guest, your comment is unpublished.
      Steve · 5 months ago
      Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
      • To post as a guest, your comment is unpublished.
        Savvy · 1 months ago
        After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
        • To post as a guest, your comment is unpublished.
          Steve · 1 months ago
          I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
      • To post as a guest, your comment is unpublished.
        Steve · 5 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 7 months ago
    Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
    Great but how to keep the lay-out (background image, margins ?)
  • To post as a guest, your comment is unpublished.
    Andrew · 8 months ago
    Can you split the document based on Heading 1 styles as your "delimiter".
    • To post as a guest, your comment is unpublished.
      kellytte · 2 months ago
      Hi Andrew,
      The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
  • To post as a guest, your comment is unpublished.
    SHUBAM AWASTHI · 11 months ago
    i need to split the document using page range. for example i wanted to split 1 to 10 page in another document. how i can do it