Форум по VBA и MS Office

Word => Макросы в Word => Тема начата: Ципихович Эндрю от 26 января 2017, 20:29

Название: Word Макрос: Перед печатью сделать без выделения, после печати вернуть обратно
Отправлено: Ципихович Эндрю от 26 января 2017, 20:29
Здравствуйте. В файле есть текст, выделенный бирюзовым цветом. Как не печатать цвет?
Цветом я выделил так: вкладка "Главная" - группа "Шрифт" - Цвет выделения текста.
Приложил файл с примером.

[вложение удалено администратором]
Название: Re: Word Макрос: Перед печатью сделать без выделения, после печати вернуть обратно
Отправлено: Администратор от 26 января 2017, 21:05
Sub Макрос()
    ActiveWindow.View.ShowHighlight = False
    ActiveDocument.PrintOut Background:=False, Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, _
        PageType:=wdPrintAllPages, PrintToFile:=False, Collate:=True, ManualDuplexPrint:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    ActiveWindow.View.ShowHighlight = True
End Sub
Название: Re: Word Макрос: Перед печатью сделать без выделения, после печати вернуть обратно
Отправлено: Ципихович Эндрю от 27 января 2017, 20:58
спасибо