Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memecah dokumen menjadi berbilang dokumen dalam perkataan?

Jika anda mempunyai dokumen perkataan besar-besaran yang perlu anda berpecah menjadi beberapa dokumen, ambil beberapa minit untuk membaca tutorial ini. Tutorial ini akan menunjukkan kepada anda dua kaedah untuk memisahkan dokumen ke beberapa dokumen.

Dokumen Split Word dengan pembatas yang ditentukan dengan VBA

Dokumen Split Word mengikut halaman dengan VBA

Pisah dokumen Word dengan tajuk / halaman / seksyen break / break halaman dengan menggunakan Kutools untuk Word

Dengan mudah membahagi satu dokumen Word ke berbilang halaman mengikut halaman, seksyen / pecahan halaman, atau menuju sekaligus!

Membandingkan untuk memecah dokumen Word dengan menyalin dan menampal, Kutools untuk Word akan memudahkan anda bekerja, dan meningkatkan kecekapan kerja anda secara dramatik dengan ciri Splitnya, yang dapat dengan cepat memecah dokumen Word semasa pembukaan ke berbilang halaman mengikut halaman, oleh break section, by page pecah, atau dengan Heading 1 yang anda perlukan. Klik untuk percubaan percuma 60-hari!
dokumen berpecah iklan mengikut halaman

Kutools untuk Word: Tambah 100 Ciri-ciri Lanjutan Baru kepada Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab Pejabat: Dayakan Penyuntingan dan Penyemakan Tab di Pejabat, Sama seperti Chrome, Firefox, IE 8 / 9 / 10.
Menu Klasik untuk Pejabat: Bawa Pandang Lama Pejabat 2003 Kembali ke Office 2007, 2010, 2013, 2016 dan 2019.

anak panah gelembung kanan biru Dokumen Split Word dengan pembatas yang ditentukan dengan VBA

Daripada memecah dokumen menjadi beberapa dokumen secara manual, kaedah ini akan memperkenalkan VBA untuk memecah dokumen Word oleh pembatas yang ditentukan dalam Word. Sila lakukan seperti berikut:

1. Tekan Alt + F11 kunci bersama untuk membuka tetingkap Microsoft Visual Basic for Application;

2. Klik Memasukkan > Modul, dan kemudian tampal di bawah kod VBA ke tetingkap Modul pembukaan baru.

VBA: Split Word Document ke Multiple Documents by 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. Kemudian klik Main butang atau tekan kekunci F5 untuk memohon VBA.

4. Dalam bermunculan dokumen Microsoft Word, sila klik butang Ya untuk meneruskan.

Catatan:
(1) Pastikan untuk menambah pembatas anda sama seperti "///" dalam sub ujian ke dokumen antara setiap bahagian teks yang anda mahu untuk dipisahkan. Juga, anda boleh berubah "///" kepada mana-mana pembatas untuk memenuhi keperluan anda.
(2) Anda boleh menukar dokumen "Nota" dalam Ujian sub untuk memenuhi keperluan anda.
(3) Dan dokumen pemisahan akan disimpan ke tempat yang sama dengan fail asal.
(4) Anda tidak perlu menambah pemisah hingga akhir fail asal, jika anda lakukan, akan ada dokumen kosong selepas berpecah.


anak panah gelembung kanan biru Dokumen Split Word mengikut halaman dengan VBA

Berikut adalah satu lagi VBA untuk membantu anda dengan cepat membahagi satu dokumen Word ke berbilang halaman dalam Word. Sila lakukan seperti berikut:

1. Tekan Alt + F11 kunci bersama untuk membuka tetingkap Microsoft Visual Basic for Application;

2. Klik Memasukkan > Modul, dan kemudian tampal di bawah kod VBA ke tetingkap Modul pembukaan baru.

VBA: Dokumen Split ke Dokumen Pelbagai oleh Halaman dalam 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. Kemudian klik Main butang atau tekan F5 kunci untuk memohon VBA.

Catatan: Dokumen pemisahan akan disimpan ke tempat yang sama dengan fail asal.


anak panah gelembung kanan biru Pisah dokumen Word dengan tajuk / halaman / seksyen break / break halaman dengan menggunakan Kutools untuk Word

Jika anda mempunyai Kutools untuk Word dipasang, anda boleh memohon Split berfungsi dengan mudah untuk memecah satu dokumen ke dalam berbilang halaman mengikut halaman, tajuk, pecah bahagian, atau pecahan halaman yang anda perlukan dalam Word ..

Kutools untuk Word adalah tambahan yang berguna untuk memudahkan kerja anda dan meningkatkan keupayaan anda memproses dokumen perkataan. Percubaan percuma untuk hari 45! Dapatkannya sekarang!

1. Klik Kutools Lebih > Split untuk membolehkan ciri Split.
dokumen berpecah doc 001

2. Dalam dialog Split pembuka di skrin, sila (1) nyatakan folder tujuan anda akan menyimpan dokumen berpecah ke dalam, (2) semak kriteria yang anda akan berpecah dari Berpecah oleh senarai jatuh turun, dan (3) klik pada OK butang. Lihat tangkapan skrin:

Dan sekarang dokumen Word semasa dibahagikan dengan kriteria yang ditentukan (Tajuk 1 dalam kes saya), dan folder tujuan dibuka secara automatik dengan dokumen berpecah. Lihat tangkapan skrin:
dokumen berpecah doc 002

Catatan: Ciri Split yang hebat ini juga menyokong perpecahan satu dokumen Word oleh halaman, melalui halaman istirahat, dan dengan seksyen pecah dengan mudah di Word. Lihat screenshot berikut:

Membahagi satu dokumen Word ke berbilang halaman mengikut halaman:

Mengasingkan satu dokumen Word ke berbilang halaman melalui pecahan halaman:

Terpisah satu dokumen Word kepada berbilang orang dengan pecahan seksyen:

Melayari penyemakan & mengedit beberapa dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin terbiasa melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antara mereka dengan mengklik tab yang sesuai dengan mudah. Di sini, Tab Office menyokong pemprosesan yang serupa, yang membolehkan anda menyemak imbas banyak dokumen Word dalam satu tetingkap Word, dan dengan mudah bertukar di antara mereka dengan mengklik tab mereka. Klik untuk ciri penuh percubaan percuma!
Semak imbas pelbagai perkataan perkataan dalam satu tetingkap sebagai Firefox


anak panah gelembung kanan biruArtikel relatif:

Gabung berbilang dokumen dan simpan format dalam perkataan




Kutools untuk Word

Lebih daripada Fungsi Lanjutan 100 untuk Word 2003, 2007, 2010, 2013, 2016 dan 2019

shot-kutools-700-225-kte

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

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