Word не имеет встроенной возможности печати цветоделенных изображений.

Вместо этого для выполнения этой задачи обычно необходимо использовать полнофункциональную настольную издательскую программу, такую ​​как InDesign. При этом вы можете выполнить элементарную форму цветоделения, просто изменив цвет текста, который вы не хотите печатать, на белый, а затем распечатайте документ. После этого будет напечатан другой цвет.

Например, следующий макрос VBA позволит вам печатать текст с цветовым разделением для документа, содержащего красный и черный текст:

Sub PrintSeps()

ActiveDocument.Save     Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting

'Change Red to White     Selection.Find.Font.ColorIndex = wdRed     Selection.Find.Replacement.Font.ColorIndex = wdWhite     With Selection.Find         .Text = ""

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     ActiveDocument.PrintOut

'Change White back to Red     Selection.Find.Font.ColorIndex = wdWhite     Selection.Find.Replacement.Font.ColorIndex = wdRed     Selection.Find.Execute Replace:=wdReplaceAll

'Change Auto to White     Selection.Find.Font.ColorIndex = wdAuto     Selection.Find.Replacement.Font.ColorIndex = wdWhite     Selection.Find.Execute Replace:=wdReplaceAll

'Change Black to White     Selection.Find.Font.ColorIndex = wdBlack     Selection.Find.Replacement.Font.ColorIndex = wdWhite     Selection.Find.Execute Replace:=wdReplaceAll

'Change Red to Black     'This is done so that Red will print as Black     'On some printers, non-black colors always     'print as a shade of gray. You want them only     'as black     Selection.Find.Font.ColorIndex = wdRed     Selection.Find.Replacement.Font.ColorIndex = wdBlack     Selection.Find.Execute Replace:=wdReplaceAll

ActiveDocument.PrintOut

ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges End Sub

Обратите внимание на пару вещей о макросе PrintSeps. Во-первых, он сохраняет ваш документ. Это происходит потому, что когда макрос завершает работу, он выбрасывает документ. Сохранение позволяет вам загрузить документ с диска позже. Также следует отметить, что это работает только для документов, содержащих только красный и черный текст. Если у вас есть другие цвета, эти цвета будут напечатаны на обоих проходах. Если у вас белый текст, он будет напечатан с красным проходом. Если у вас есть графика, на них не делается разделения. (Если у вас есть графика и вы хотите, чтобы они были разделены, вам определенно следует использовать настольную издательскую программу.)

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11243) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Printing_Color_Separations_with_VBA [Печать цветоделения с помощью VBA].