Объявления
Макрос печати страниц файлов из папки для Word

Написать макрос под Word – не проблема. В тоже время, нужно знать, как к этому подступиться. Недавно возникла необходимость написать макрос под Word, который бы выводил на печать указанные страницы из *.doc файлов в указанной папке. О том, как я это сделал и как это использовать, расскажу в данной заметке.

И так. Открываем MS Word и вызываем Microsoft Visual Basic, именно на нем будет написан наш макрос. Для этого нужно нажать комбинацию клавиш Alt+F11.

В открывшемся окне нас интересует панель «Project», где нам надо (двойным шелчком) кликнуть ThisDocument. Откроется окно для написания кода. Пишем там следующее:
Sub ListDocNamesInFolder()
  Dim sMyDir As String
  Dim sDocName As String
  sMyDir = "E:\2\"
  sDocName = Dir(sMyDir & "*.doc")
  While sDocName <> ""
    Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="2,4-6", FileName:=sMyDir & sDocName
    sDocName = Dir()
  Wend
End Sub

Разберем этот пример подробнее. Понятно, что мы создали здесь процедуру ListDocNamesInFolder(), которая и будет выполнять требуемый код. Далее мы определяем две строковые переменные sMyDir (папка, в которой будет вестись поиск нужных файлов) и sDocName (которой будет присвоен список имен файлов с расширением *.doc). Далее идет перебор файлов и вывод их на печать через метод PrintOut, где нас интересует параметрPages, который и задает интересующие нас страницы. При этом, важно, чтобы параметр Range имел значениеwdPrintRangeOfPages.

Примечание: основные места в коде, которые отвечают за требуемые настройки, выделены зеленым.

Нам осталось лишь запустить код на выполнение. Для этого кликаем кнопку «Run Sub/UserForm» (в виде кнопки Play) на верхней панели инструментов.

источник

Поделитесь полезным материалом с друзьями:


Вам помог этот совет? Вы можете помочь проекту, пожертвовав на его развитие любую сумму по своему усмотрению. Например, 20 рублей. Или больше :)

Передать $пасибо! нашему сайту через систему Webmoney
Добавление комментария:
Ваше Имя:
Ваш E-Mail:

Полужирный Наклонный текст Подчёркнутый текст Зачёркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Вставка ссылкиВставка защищённой ссылки Выбор цвета | Скрытый текст Вставка цитаты Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера
Код:
Включите эту картинку для отображения кода безопасности
обновлять капчу