PDA

Показать полную графическую версию : распечатать несколько сотен документов word


Опиум
17-09-2015, 17:39
В папке есть несколько сотен меленьких вордовских документов,
как красиво их распечатать все разом?)

Выделить все, а потом правой кнопкой мыши - Print -не предлагать, ибо вызывает на каждый файл экземпляр целого ворда и никакой памяти не хватит. Работает при нескольких файлах, но несколько сотен не вытянет.
VBA в самом ворде писать не хочу, мне кажется более красивый способ - внешний скрипт.

megaloman
17-09-2015, 22:47
Попробуйте (не очень отлаживал - не на чем). Не уверен в совместимости для всех версий Word. Все файлы в папке, например,
E:\Файлы для печати
будут печататься поочерёдно на принтер по умолчанию@Echo Off
Set "Doc=E:\Файлы для печати"

FOR /F "usebackq delims=" %%w IN (`Dir "%ProgramFiles% (x86)\Microsoft Office\WinWord.exe" /b /s /A:-D 2^>nul`) DO Set "Word=%%w"
FOR /F "usebackq delims=" %%w IN (`Dir "%ProgramFiles%\Microsoft Office\WinWord.exe" /b /s /A:-D 2^>nul`) DO Set "Word=%%w"

FOR /F "usebackq delims=" %%d IN (`Dir "%Doc%\*.do*" /b /A:-D 2^>nul`) DO (
"%Word%" "%Doc%\%%d" /q /n /mFilePrintDefault /mFileSave /mFileExit
)
Использовал Печать-ms-word-документа-из-командной-строки (http://zhuk.cc/2011/09/19/Печать-ms-word-документа-из-командной-строк/) и Использование параметров командной строки для запуска Word 2010, Word 2007, Word 2003, Word 2002 и Word 2000 (https://support.microsoft.com/ru-ru/kb/210565)

Iska
18-09-2015, 08:21
Выделить все, а потом правой кнопкой мыши - Print -не предлагать, ибо вызывает на каждый файл экземпляр целого ворда и никакой памяти не хватит. Работает при нескольких файлах, но несколько сотен не вытянет. »
Просто откройте перед печатью один экземпляр «winword.exe».




© OSzone.net 2001-2012