Коррекция макроса печати

[caute]

Местный добрый человек написал по моей просьбе отдельные макросы печати для четных и нечетных страниц. Для нового принтера требуется слегка модифицировать макрос печати четных страниц, а именно, печатать их в обратном порядке. Вот сам макрос:

Sub Печать_четных_страниц()
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:=wdPrintEvenPagesOnly, _
        Collate:=True, Background:=True, PrintToFile:=False _
        , PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

[caute]

мдя, раньше как-то отзывались люди

[Sasha_Smirnov]

Так ведь без принтера приходится работать наугад!

Добавьте в начале

Options.PrintReverse = True

Может, будете смеяться, но, когда в диалоге печати (Ctrl-p) я выбрал в параметрах печать в обратном порядке, макрорекордер Word’а записал это сам!

Сообщение от caute

Местный добрый человек написал по моей просьбе отдельные макросы…

А вообще это его работа или ваша?!

[caute]

спасибо, Саша, тупанул с макрорекордером, сорри
Работа местного товарища.

[caute]

................

[caute]

Подкскажите, пожалуйста, как по окончании выполнения макроса снять галку с MatchWildcards.

[Sasha_Smirnov]

Подсказываю: в режиме записи снимите эту галку (1-я строка кода), очистите окна поиска и замены и нажмите "Заменить" (2-я строка кода).

    Selection.Find.MatchWildcards = False
    Selection.Find.Execute

Расскажите об этом доброму человеку — и он станет ещё добрей!

[caute]

спасибо, Саша (Ваше терпение к глупым вопросам сделало бы честь даже наставнику коррекционных классов)