2 Cara Cepat untuk Mencetak Banyak Halaman Tertentu dari Beberapa Dokumen Word

Pada artikel di bawah ini, kami ingin berbagi dengan Anda 2 cara cepat untuk mencetak halaman tertentu dari beberapa dokumen Word.

File pencetakan batch jelas merupakan berkah bagi banyak dari kita. Menghemat waktu membuka setiap file dan juga beberapa klik. Sekarang bagaimana dengan pencetakan batch halaman tertentu dari beberapa dokumen Word? Misalnya, akan berguna untuk mencetak halaman pertama dari beberapa file sekaligus. Juga, untuk mencetak halaman "Konten" atau "Referensi" dari banyak file juga diperlukan. Jadi bisakah kita melakukannya?

Ya, jawabannya singkat. Dan yang terbesar adalah kami tidak membutuhkan add-in pihak ketiga mana pun.

Metode 1: Cetak Batch Halaman Pertama dari Beberapa Dokumen

1. Sebagai langkah awal, simpan semua dokumen target di direktori yang sama.
2. Kemudian klik tab "Pengembang" dan "Visual Basic" untuk membuka editor VBA. Atau tekan "Alt+ F11" sebagai gantinya.
3. Selanjutnya klik "Normal" dan kemudian "Sisipkan".
4. Pilih "Modul" pada menu drop-down.
5. Sekarang akan ada modul baru. Klik dua kali untuk memunculkan ruang pengeditan.
6. Rekatkan 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

7. Selanjutnya klik tombol “Run” atau tekan “F5”.
8. Pada kotak yang muncul, masukkan jalur folder tempat Anda menyimpan file, seperti “E:\tes kata\tes\". Jangan lupa “\” terakhir. Klik "OK" untuk melanjutkan.

Tinggal menunggu pencetakan.

Metode 2: Cetak Batch Halaman Spesifik dari Banyak Dokumen

Untuk mencetak halaman tertentu dari beberapa dokumen, Anda dapat menggunakan makro berikut.

Instal dan jalankan makro dengan langkah yang sama di metode 1, tetapi ganti 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

Demikian pula, masukkan jalur folder di kotak pertama. Kemudian masukkan nomor halaman di kotak kedua. Untuk mencetak halaman berurutan, gunakan tanda hubung untuk memisahkan angka awal dan akhir, seperti “1-3”. Untuk mencetak halaman tidak berurutan, gunakan koma sebagai pemisah, seperti “1, 3, 5”. Misalnya, “1, 3-6” berarti mencetak halaman 1, 3, 4, 5, dan 6.

Alat Perbaikan yang Harus Anda Miliki

Kebetulan Word tiba-tiba berhenti merespons, membuat dokumen Anda macet. Kemungkinan besar untuk mewarisi file yang rusak dari a Word rusak. Terkadang konsekuensinya terlalu berat untuk ditanggung. Anda mungkin menyalahkan diri sendiri karena gagal mengambil cadangan. Tetapi hal yang lebih penting yang perlu Anda lakukan adalah mendapatkan produk pemulihan untuk segera mengambil data.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Excel rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com