Word non dispone della funzionalità intrinseca per stampare le separazioni dei colori.

Invece, in genere è necessario utilizzare un programma di desktop publishing completo come InDesign per eseguire questa operazione. Detto questo, puoi eseguire una forma rudimentale di separazione dei colori semplicemente cambiando il colore del testo che non vuoi stampare in bianco e quindi stampando il documento. Invertendo il processo verrà stampato l’altro colore.

Ad esempio, la seguente macro VBA ti consentirà di stampare testo separato dal colore per un documento che contiene testo sia rosso che nero:

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

Notare un paio di cose sulla macro PrintSeps. Innanzitutto, salva il tuo documento. Ciò viene fatto perché quando la macro viene eseguita, getta il documento. Il salvataggio consente di caricare il documento dal disco in un secondo momento. L’altra cosa da notare è che funziona solo per i documenti che contengono solo testo rosso e nero. Se hai altri colori, quei colori verranno stampati su entrambi i passaggi. Se hai del testo bianco, verrà stampato con il pass rosso. Se si dispone di grafica, non viene eseguita alcuna separazione su di essi. (Se hai elementi grafici e li vuoi separati, dovresti assolutamente usare un programma di desktop publishing.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1795) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Stampa di separazioni di colore con VBA.