Dalam artikel di bawah ini, kami ingin berkongsi dengan anda 2 cara cepat untuk mencetak halaman tertentu dari beberapa dokumen Word.
Fail percetakan kumpulan jelas merupakan rahmat bagi kebanyakan kita. Ini menjimatkan masa membuka setiap fail dan juga beberapa klik. Sekarang bagaimana dengan percetakan kumpulan tertentu dari beberapa dokumen Word? Sebagai contoh, akan berguna untuk mencetak halaman pertama dari beberapa fail pada masa yang sama. Juga, untuk mencetak halaman "Isi" atau "Rujukan" dari beberapa fail juga diperlukan. Jadi bolehkah kita melakukannya?
Ya, jawapannya pendek. Dan yang paling hebat ialah kita tidak memerlukan tambahan pihak ketiga.
Kaedah 1: Batch Print First Page of Multiple Documents
- Untuk bermula, simpan semua dokumen sasaran di bawah direktori yang sama.
- Kemudian klik tab "Pembangun" dan "Visual Basic" untuk membuka editor VBA. Atau tekan "Alt + F11" sebagai gantinya.
- Seterusnya klik "Normal" dan kemudian "Masukkan".
- Pilih "Modul" pada menu lungsur.
- Sekarang akan ada modul baru. Klik dua kali di atasnya untuk mengeluarkan ruang penyuntingan.
- Tampal makro pada modul:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
- Selanjutnya klik butang "Jalankan" atau tekan "F5".
- Pada kotak yang muncul, masukkan jalur folder tempat anda menyimpan fail, seperti "E: \ kata ujian \ ujian \". Jangan lupa "\" terakhir. Klik "OK" untuk meneruskan.
Tunggu sahaja percetakannya.
Kaedah 2: Halaman Khusus Mencetak Banyak Dokumen
Untuk mencetak halaman tertentu dari beberapa dokumen, anda boleh menggunakan makro berikut.
Pasang dan jalankan makro dengan langkah yang sama dalam kaedah 1, tetapi gantikan dengan makro ini:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
Dim strPages As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
Begitu juga, masukkan laluan folder dalam kotak pertama. Kemudian masukkan nombor halaman ke dalam kotak kedua. Untuk mencetak halaman berturut-turut, gunakan tanda sempang untuk memisahkan nombor permulaan dan akhir, seperti “1-3”. Untuk mencetak halaman yang tidak berturut-turut, gunakan koma sebagai pemisah, seperti “1, 3, 5”. Contohnya, “1, 3-6” bermaksud mencetak halaman 1, 3, 4, 5 dan 6.
Membaiki Alat yang Perlu Anda Miliki
Kebetulan Word berhenti bertindak balas secara tiba-tiba, sehingga dokumen anda tersekat. Kemungkinan tinggi untuk mewarisi fail yang rosak dari a Perkataan yang rosak. Kadang kala akibatnya terlalu berat untuk ditanggung. Anda mungkin menyalahkan diri sendiri kerana gagal mengambil sandaran. Tetapi perkara yang lebih penting yang perlu anda lakukan adalah mendapatkan produk yang pulih untuk mendapatkan data dengan segera.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Excel rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com