2 бързи начина за групово отпечатване на множество документи с думи

В днешната стрost, радваме се да споделим с вас 2 бързи начина за групово отпечатване на множество документи на Word наведнъж.

С течение на времето е трудно да не говорим за печат. Обикновено отваряхме документ и го отпечатвахме отделно един по един. Това може да бъде приемливо, когато има само няколко файла. Говорейки за голям брой документи обаче, трябва да измислим по-бързи решения, вместо да отваряме и отпечатваме всеки ръчно.

Следват 2 налични метода за групово отпечатване на множество документи на Word.

Метод 1: Печат чрез контекстното меню

1. Като начало, ако не сте любители на избора на документи по време на печат, можете да ги подредите всички в една и съща директория.
2. След това посетете мястото, където съхранявате tarвземете документи.
3. Натиснете „Ctrl + A“, за да изберете всички документи.
4. Щракнете с десния бутон и изберете „Печат“.

Между другото, можете да отпечатвате максимум 15 документа всеки път с този метод.

Метод 2: Пакетно отпечатване на документи чрез VBA

Тъй като метод 1 има ограничение на броя до 15, можете да изберете макроса за заобикаляне на ограничението.

1. Първи и преденost, организирайте всички tarвземете файлове в същата папка.
2. След това щракнете върху раздела „Разработчик“ и върху „Visual Basic“ след това. Ако раздела „Разработчик“ все още не е в лентата, вместо това натиснете „Alt + F11“, за да извикате редактора на VBA.
3. След това щракнете върху раздела „Нормално“ и „Вмъкване“.
4. И изберете „Модул“, за да създадете нов.
5. Щракнете двукратно върху модула, за да имате място за кодиране отдясно.
6. Поставете кодовете там:

Sub BatchPrintWordDocuments()
  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
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

7. Не на последно място, щракнете върху бутона „Изпълни“ или натиснете „F5“.

Сега ще се появи кутия. Просто въведете пътя, където съхранявате документи, и след това щракнете върху „OK“, за да изчакате печата.

Разбира се, можете да присвоите бутон на макроса, за да го използвате в бъдеще. За повече подробности можете да последвате тази връзка: Как да премахнете форматирането на поставени текстове с макро и VBA във вашата дума

Погрижете се за вашите Word документи

Тъй като знаем, че Word е уязвим за грешки и грешки, документите ни са изложени на риск през цялото време. Следователно е време да вземем мерки за осигуряване на ценни данни. Например, за да се предотврати завършването с a корумпиран док, е добър навик да правите резервни копия ежедневно.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Поправка на Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com