Bir nechta Word hujjatlarining maxsus sahifalarini ommaviy chop etishning 2 ta tezkor usuli

Quyidagi maqolada biz siz bilan bir nechta Word hujjatlarining muayyan sahifalarini ommaviy chop etishning 2 ta tezkor usulini baham ko'rmoqchimiz.

Ommaviy chop etish fayllari, albatta, ko'pchiligimiz uchun barakadir. Bu har bir faylni ochish vaqtini va bir necha marta bosishni tejaydi. Endi bir nechta Word hujjatlarining maxsus sahifalarini ommaviy chop etish haqida nima deyish mumkin? Misol uchun, bir vaqtning o'zida bir nechta fayllarning birinchi sahifasini chop etish foydali bo'ladi. Bundan tashqari, bir nechta fayllarning "Tarkib" yoki "Ma'lumotnomalar" sahifalarini chop etish uchun ham kerak bo'ladi. Xo'sh, buni qila olamizmi?

Ha, javob qisqa. Va eng muhimi shundaki, biz hech qanday uchinchi tomon qo'shimchalariga muhtoj emasmiz.

1-usul: Bir nechta hujjatlarning birinchi sahifasini ommaviy chop etish

1. Boshlash uchun barcha maqsadli hujjatlarni bitta katalog ostida saqlang.
2. Keyin VBA muharririni ochish uchun "Tuzuvchi" yorlig'ini va "Visual Basic" ni bosing. Yoki o'rniga "Alt + F11" tugmasini bosing.
3. Keyin "Oddiy" va keyin "Qo'shish" tugmasini bosing.
4. Ochilgan menyuda "Module" ni tanlang.
5. Endi yangi modul paydo bo'ladi. Tahrirlash joyini ochish uchun ustiga ikki marta bosing.
6. Makroni modulga joylashtiring:

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. Keyin "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
8. Ochilgan oynada fayllar saqlanadigan papka yo'lini kiriting, masalan, "E:\test so'zi\test\". Oxirgi "\" ni unutmang. Davom etish uchun “OK” tugmasini bosing.

Faqat chop etishni kuting.

2-usul: Bir nechta hujjatlarning maxsus sahifalarini ommaviy chop etish

Bir nechta hujjatlarning muayyan sahifalarini chop etish uchun siz quyidagi makrosdan foydalanishingiz mumkin.

1-usuldagi bir xil qadamlar bilan makrosni o'rnating va ishga tushiring, lekin bu makros bilan almashtiring:

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

Xuddi shunday, birinchi katakchaga papka yo'lini kiriting. Keyin ikkinchi katakchaga sahifa raqamini kiriting. Ketma-ket sahifalarni chop etish uchun boshlang'ich va tugash raqamlarini, masalan, "1-3" ni ajratish uchun defisdan foydalaning. Ketma-ket sahifalarni chop etish uchun ajratuvchi sifatida verguldan foydalaning, masalan, "1, 3, 5". Masalan, "1, 3-6" 1, 3, 4, 5 va 6-sahifalarni chop etishni anglatadi.

Sizda bo'lishi kerak bo'lgan ta'mirlash vositasi

Shunday bo'ladiki, Word to'satdan javob berishni to'xtatadi va hujjatingiz tiqilib qoladi. Buzilgan faylni a dan meros qilib olish imkoniyati yuqori shikastlangan Word. Ba'zida oqibatlarga chidab bo'lmas darajada og'ir bo'ladi. Zaxira nusxalarini olmaganingiz uchun o'zingizni ayblashingiz mumkin. Lekin siz qilishingiz kerak bo'lgan muhim narsa - ma'lumotlarni darhol olish uchun qayta tiklanadigan mahsulotni olishdir.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan Excel va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com