распечатать несколько сотен документов word
В папке есть несколько сотен меленьких вордовских документов,
как красиво их распечатать все разом?)
Выделить все, а потом правой кнопкой мыши - Print -не предлагать, ибо вызывает на каждый файл экземпляр целого ворда и никакой памяти не хватит. Работает при нескольких файлах, но несколько сотен не вытянет.
VBA в самом ворде писать не хочу, мне кажется более красивый способ - внешний скрипт.
|
Попробуйте (не очень отлаживал - не на чем). Не уверен в совместимости для всех версий 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-документа-из-командной-строки и Использование параметров командной строки для запуска Word 2010, Word 2007, Word 2003, Word 2002 и Word 2000 |
Цитата:
Цитата Опиум
Выделить все, а потом правой кнопкой мыши - Print -не предлагать, ибо вызывает на каждый файл экземпляр целого ворда и никакой памяти не хватит. Работает при нескольких файлах, но несколько сотен не вытянет. »
|
Просто откройте перед печатью один экземпляр «winword.exe». |
Время: 14:42.
© OSzone.net 2001-
