W poniższym artykule chcemy podzielić się z wami dwoma szybkimi sposobami drukowania wsadowego określonych stron wielu dokumentów programu Word.
Pliki do drukowania wsadowego to dla wielu z nas z pewnością błogosławieństwo. Oszczędza czas otwierania każdego pliku, a także kilka kliknięć. A co z drukowaniem wsadowym określonych stron wielu dokumentów programu Word? Na przykład przydatne byłoby wydrukowanie pierwszej strony kilku plików jednocześnie. Ponadto, aby wydrukować strony „Zawartość” lub „Odnośniki” wielu plików, są również potrzebne. Więc możemy to zrobić?
Tak, odpowiedź jest krótka. A najlepsze jest to, że nie potrzebujemy żadnych dodatków innych firm.
Metoda 1: Drukowanie zbiorcze pierwszej strony wielu dokumentów
- Na początek zapisz wszystkie dokumenty docelowe w tym samym katalogu.
- Następnie kliknij zakładkę „Deweloper” i „Visual Basic”, aby otworzyć edytor VBA. Lub zamiast tego naciśnij „Alt + F11”.
- Następnie kliknij „Normalne”, a następnie „Wstaw”.
- Wybierz „Moduł” z menu rozwijanego.
- Teraz będzie nowy moduł. Kliknij dwukrotnie, aby wyświetlić przestrzeń edycji.
- Wklej makro do modułu:
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
- Następnie kliknij przycisk „Uruchom” lub naciśnij „F5”.
- W wyskakującym okienku wprowadź ścieżkę do folderu, w którym przechowujesz pliki, na przykład „E: \ słowo testowe \ test \". Nie zapomnij ostatniego „\”. Kliknij „OK”, aby kontynuować.
Poczekaj tylko na wydruk.
Metoda 2: Drukowanie zbiorcze określonych stron wielu dokumentów
Aby wydrukować określone strony wielu dokumentów, możesz użyć następującego makra.
Zainstaluj i uruchom makro, wykonując te same kroki w metodzie 1, ale zamień na to makro:
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
Podobnie, wprowadź ścieżkę do folderu w pierwszym polu. Następnie wpisz numer strony w drugim. Aby wydrukować kolejne strony, użyj myślnika do oddzielenia numerów początkowych i końcowych, np. „1-3”. Aby wydrukować strony nieciągłe, użyj przecinka jako separatora, np. „1, 3, 5”. Na przykład „1, 3-6” oznacza wydrukowanie stron 1, 3, 4, 5 i 6.
Narzędzie do naprawy, które musisz mieć
Zdarza się, że program Word nagle przestaje odpowiadać, pozostawiając dokument zablokowany. Istnieje duże prawdopodobieństwo odziedziczenia uszkodzonego pliku z pliku uszkodzony Word. Czasami konsekwencje są zbyt przytłaczające, by je znieść. Możesz obwiniać się o niepowodzenie w tworzeniu kopii zapasowych. Ale ważniejszą rzeczą, którą musisz zrobić, jest uzyskanie produktu do odzyskiwania, aby natychmiast odzyskać dane.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com