Tidak boleh dipertikaikan Word 2010 ialah editor perkataan terbaik di sekeliling, selain daripada menyediakan alat penyuntingan asas dan gaya carta, ia juga menyediakan pilihan untuk menyesuaikan dokumen dalam apa jua cara yang anda mahukan. Disembunyikan secara lalai, Word 2010 menyediakan pilihan untuk menambah fungsi yang berbeza, seperti contohnya, dengan memasukkan beberapa baris kod anda boleh menggabungkan dokumen Word tanpa perlu menggunakan mana-mana aplikasi pihak ketiga khusus. Dalam siaran ini kami akan memasukkan beberapa baris kod untuk menggabungkan semua kandungan dokumen yang berada dalam folder yang sama dan menunjukkannya dalam yang baharu.
Untuk memulakan, pertama anda perlu meletakkannya dalam folder yang sama, pastikan semuanya tergolong dalam versi Word yang sama sama ada Doc atau Docx. Seperti yang anda lihat dalam tangkapan skrin di bawah, kami telah membuka dua dokumen yang akan digabungkan bersama.

Sekarang buka mana-mana dokumen Word dan simpannya sebagai dokumen Didayakan Makro, untuk ini, pergi ke menu Fail dan klik Simpan Sebagai.

Dialog akan muncul, daripada Simpan sebagai jenis, klik Templat Didayakan Makro Word dan klik Simpan.

Kami akan menggunakan editor VB, jadi pertama sekali kami perlu membuat tab Pembangun kelihatan pada tetingkap Word. Sekiranya anda tidak menjumpai tab Pembangun , pergi ke menu Fail , klik Pilihan, dan dalam anak tetingkap kiri klik Sesuaikan Reben, dari anak tetingkap kanan dayakan kotak semak Pembangun . Klik OK untuk melihat tab Pembangun pada reben.

Sekarang navigasi ke tab Pembangun dan klik Visual Basic.

Anda akan mencapai dialog Editor VB, dari bar sisi kiri dwiklik ThisDocument untuk membuka tetingkap penyuntingan VB itu. Anda akan melihat tetingkap kod di sebelah kanan. Sekarang letakkan baris kod ini di dalamnya.
Nota: Jangan lupa untuk menukar laluan folder di mana dokumen berada dan versi dokumen Word dalam baris kod ini. Untuk memudahkan kami telah menambahkan langkah berjaga-jaga ini di hadapan kod juga.
Sub MergeDocs()
Dim rng Sebagai Julat
Malapkan MainDoc Sebagai Dokumen
Malapkan strFail Sebagai Rentetan
Const strFolder = “C:\Users\Usman Javaid\Desktop\Word documents\” ||| (Tukar laluan di mana dokumen anda berada)
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & “*.docx”) ||| (Tukar sambungan fail kepada .doc sekiranya anda berurusan dengan versi Word 97-03)
Lakukan Sehingga strFile = “”
Set rng = MainDoc.Range
rng. Runtuhkan wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
gelung
Tamat Sub

Sekarang tekan Ctrl+S untuk menyimpan makro yang baru ditambah dan tutup editor VB. Navigasi ke tab Pembangun dan klik Makro.
Daripada dialog Makro , pilih makro MergeDocs dan klik Jalankan .

Jika anda telah menentukan laluan dan versi dengan betul, maka semua dokumen akan bergabung dan terbuka dalam dokumen baharu.

Anda juga boleh menyemak panduan kami yang telah disemak sebelum ini tentang Kembali ke baris terakhir yang diedit dalam Word 2010 dan menggunakan Gabungan Mel dalam Word 2010 .
[melalui gaebler ]