Word no tiene la capacidad inherente de imprimir separaciones de color.

En su lugar, normalmente debe utilizar un programa de publicación de escritorio con todas las funciones, como InDesign, para realizar esta tarea. Dicho esto, puede realizar una forma rudimentaria de separación de colores simplemente cambiando el color del texto que no desea imprimir a blanco y luego imprimiendo el documento. Al invertir el proceso, se imprimirá el otro color.

Por ejemplo, la siguiente macro de VBA le permitirá imprimir texto separado por colores para un documento que contiene texto en rojo y negro:

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

Tenga en cuenta un par de cosas sobre la macro PrintSeps. Primero, guarda su documento. Esto se hace porque cuando la macro termina de ejecutarse, arroja el documento. Guardar le permite cargar el documento desde el disco en otro momento. La otra cosa a tener en cuenta es que esto funciona solo para documentos que contienen solo texto en rojo y negro. Si tiene otros colores, esos colores se imprimirán en ambas pasadas. Si tiene texto en blanco, se imprimirá con el pase rojo. Si tiene gráficos, no se hace ninguna separación en ellos. (Si tiene gráficos y los quiere separados, definitivamente debería usar un programa de autoedición).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (11243) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

enlace: / word-Printing_Color_Separations_with_VBA [Impresión de separaciones de color con VBA].