Cara Memisahkan File Word Menjadi Beberapa Bagian

Alih-alih memberi dokumen menjadi beberapa dokumen secara manual, metode ini akan memasyarakatkan VBA untuk membagi tembusan Word dengan pembatas yang ditentukan di Word. Harap lakukan sebagai berikut:

1. tekan
Alt + F11
berbarengan buat mendedahkan jendela Microsoft Okuler Basic for Application;

2. Klik
Menyisipkan
>
Modul, sangat tempelkan kode VBA di bawah ini ke aliran udara Modul pembuka yang baru.

VBA: Pisahkan Dokumen Word menjadi Beberapa Dokumen dengan Pembatas

                Sub SplitNotes(delim As String, strFilename As String) Dim doc As Document Dim arrNotes Dim I As Long Inci X As Long Inci 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 & Ukuran(X, "000") doc.Close True End If Next I End Sub Sub test() 'delimiter & filename SplitNotes "///", "Notes " End Sub
              

3. Habis klik
Run
atau tekan tombol F5 untuk menerapkan VBA.

4. Dalam akta Microsoft Word yang unjuk, klik tombol Yes bikin melanjutkan.

Catatan:

(1) Pastikan untuk menambahkan pembatas Anda sama sebagaimana
“///”
di sub tes ke dokumen antara setiap bagian teks yang ingin Anda pisahkan. Kembali, Beliau bisa berubah
“///”
ke pewatas apa lagi bikin memenuhi kebutuhan Ia.
(2) Anda dapat mengubah kopi
“Catatan”
di sub Uji sesuai dengan kebutuhan Anda.
(3) Dan dokumen pemisahan akan disimpan ke tempat yang sebagai halnya file aslinya.
(4) Anda enggak perlu menambahkan pembatas di akhir file asli, jika Beliau melakukannya, akan cak semau tindasan kosong sesudah pemisahan.

Berikut yaitu VBA tidak untuk kontributif Anda dengan cepat membagi satu kopi Word menjadi beberapa halaman di Word. Minta lakukan sebagai berikut:

1. tekan
Alt + F11
bersama-sama bikin membuka aliran udara Microsoft Visual Basic for Application;

2. Klik
Menyisipkan
>
Modul, lalu tempelkan kode VBA di bawah ini ke lubang angin Modul pembuka yang baru.

VBA: Pisahkan Dokumen menjadi Sejumlah Dokumen berdasarkan Halaman di Word

                Sub SplitIntoPages() Dim docMultiple As Document Inci 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. Lampau klik
Run
kenop atau tekan
F5
kunci cak bagi menerapkan VBA.

Coretan:
Arsip yang dipisahkan akan disimpan ke tempat nan selevel dengan file aslinya.

Jika Dia menginstal Kutools for Word, Anda bisa menerapkannya
Membagi
berfungsi untuk dengan mudah menjatah satu tembusan menjadi bilang sahifah berdasarkan pekarangan, titel, hentian adegan, alias hentian halaman begitu juga nan Sira butuhkan di Word ..

Kutools for Word
merupakan tambahan yang berharga bikin melicinkan pekerjaan Dia dan meningkatkan kemampuan Ia dalam memproses tindasan perkenalan awal. Uji Coba Gratis selama 60 hari!
Dapatkan itu sekarang!

1.Klik
Kutools Plus
>
Membagi
bikin mengaktifkan
Membagi
fitur.

2. Intern dialog Sisih pembuka di jib, Dia boleh melakukan hal berikut:

(1) Membeda-bedakan cara pemisahan bersumber
Pisahkan dengan
daftar drop-down

Fitur ini mendukung 6 cara pemecahan: heading 1, page break, section break, halaman, setiap n pekarangan, dan rentang halaman kustom seperti rang di bawah ini yang ditampilkan:

(2) Klik
Browse
tombol


 lakukan menentukan
folder tujuan gelanggang Anda akan menggudangkan dokumen nan terpisah;

(3) Ketik kata kiat sebagai ancang nama piagam bau kencur di
Persiapan Akta
kotak.

Tip:

(1) Jika Anda menentukan pencatuan manuskrip ketika ini dengan
Setiap t pelataran, Anda perlu menentukan nomor di
Setiap lengkung langit halaman
kotak;

(2) Jika Kamu menentukan untuk membagi dokumen momen ini dengan rentang halaman kustom, Anda perlu mengegolkan rentang halaman kustom ini dipisahkan dengan koma di
Jerambah
kotak, misalnya, ketik 1, 3-5, 12 di peti.

3. klik
Ok
tombol untuk mulai membelah.

Kemudian dokumen ketika ini dipisahkan dengan kaidah pemisahan yang ditentukan, dan dokumen baru akan disimpan ke folder harapan secara massal.

Menjelajah dengan tab & mengedit sejumlah dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda boleh jadi tidak asing lagi untuk melihat beberapa pekarangan web di Firefox / Chrome / IE, dan beralih di antaranya dengan mengklik tab yang sesuai dengan mudah. Di sini, Office Tab kontributif pemrosesan serupa, nan memungkinkan Sira menyerempet beberapa tembusan Word dalam satu lubang angin Word, dan dengan mudah beralih di antara mereka dengan mengklik tabnya.

Klik cak bagi uji coba gratis fitur abstrak!

Kutools For Word – Makin dari 100 Fitur Canggih Bagi Word, Hemat 50% Waktu Sira

• Operasionalisasi nan rumit dan tautologis dapat dilakukan satu mungkin pemrosesan internal hitungan detik.
• Sisipkan beberapa tulang beragangan di seluruh folder ke kerumahtanggaan kopi Word berbarengan.
• Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan cumbu yang Anda inginkan.
• Pisahkan dokumen saat ini menjadi tindasan terpisah sesuai dengan judul, hentian episode, maupun patokan lainnya.
• Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk transmutasi dan seleksi awam, dan lebih jauh …