Word n’a pas la capacité inhérente d’imprimer des séparations de couleurs.

Au lieu de cela, vous devez généralement utiliser un programme de publication assistée par ordinateur complet tel qu’InDesign pour accomplir cette tâche. Cela étant dit, vous pouvez effectuer une forme rudimentaire de séparation des couleurs en changeant simplement la couleur du texte que vous ne souhaitez pas imprimer en blanc, puis en imprimant le document. Inverser le processus imprimera alors l’autre couleur.

Par exemple, la macro VBA suivante vous permettra d’imprimer du texte séparé par couleur pour un document contenant à la fois du texte rouge et noir:

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

Notez quelques points sur la macro PrintSeps. Tout d’abord, il enregistre votre document. Cela est fait parce que lorsque la macro est exécutée, elle jette le document. L’enregistrement vous permet de charger le document à partir du disque ultérieurement. L’autre chose à noter est que cela ne fonctionne que pour les documents qui ne contiennent que du texte rouge et noir. Si vous avez d’autres couleurs, ces couleurs s’imprimeront sur les deux passes. Si vous avez du texte blanc, il s’imprimera avec le laissez-passer rouge. Si vous avez des graphiques, aucune séparation n’est effectuée sur eux. (Si vous avez des graphiques et que vous voulez les séparer, vous devriez certainement utiliser un programme de publication assistée par ordinateur.)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11243) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Printing_Color_Separations_with_VBA [Impression de séparations de couleurs avec VBA].