У статті нижче ми хочемо поділитися з вами двома швидкими способами групового друку певних сторінок безлічі документів Word.
Пакетний друк файлів, безумовно, є благом для багатьох з нас. Це економить час на відкриття кожного файлу, а також пару кліків. А що щодо пакетного друку конкретних сторінок декількох документів Word? Наприклад, було б корисно надрукувати першу сторінку декількох файлів одночасно. Також для друку сторінок “Зміст” або “Посилання” з декількох файлів також потрібно. То ми можемо це зробити?
Так, відповідь коротка. І найбільше, що ми не потребуємо сторонніх надбудов.
Спосіб 1: Пакетний друк першої сторінки декількох документів
- Для початку збережіть усі цільові документи в одному каталозі.
- Потім натисніть вкладку «Розробник» та «Visual Basic», щоб відкрити редактор VBA. Або натомість натисніть “Alt + F11”.
- Потім натисніть «Звичайний», а потім «Вставити».
- Виберіть “Модуль” у спадному меню.
- Тепер буде новий модуль. Двічі клацніть на ньому, щоб відкрити простір для редагування.
- Вставте макрос в модуль:
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
- Потім натисніть кнопку «Виконати» або натисніть «F5».
- У вікні, що з’явиться, введіть шлях до папки, де ви зберігаєте файли, наприклад “E: \ тестове слово \ тест \". Не забудьте останнє “\”. Натисніть “OK”, щоб продовжити.
Просто почекайте друку.
Спосіб 2: Пакетний друк певних сторінок декількох документів
Для друку певних сторінок декількох документів ви можете використовувати наступний макрос.
Встановіть і запустіть макрос за допомогою тих самих кроків у способі 1, але замініть на цей макрос:
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
Аналогічно, введіть шлях до папки в перше поле. Потім введіть номер сторінки в друге. Щоб друкувати послідовні сторінки, використовуйте дефіс для розділення початкового та кінцевого номерів, наприклад, «1-3». Щоб друкувати непослідовні сторінки, використовуйте кому як роздільник, наприклад, «1, 3, 5». Наприклад, «1, 3-6» означає друк сторінок 1, 3, 4, 5 та 6.
Інструмент для ремонту, який потрібно мати
Трапляється, що Word раптово перестає реагувати, залишаючи ваш документ застряглим. Велика можливість успадкувати зламаний файл з файлу пошкоджене слово. Іноді наслідок є надто переважним, щоб його можна було понести. Ви можете звинуватити себе в тому, що не зробили резервних копій. Але найважливіше, що вам потрібно зробити, це отримати продукт, що відновлюється, для негайного отримання даних.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджено Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com