Word verfügt nicht über die inhärente Fähigkeit, Farbseparationen zu drucken.

Stattdessen müssen Sie normalerweise ein Desktop-Publishing-Programm mit vollem Funktionsumfang wie InDesign verwenden, um diese Aufgabe auszuführen. Abgesehen davon können Sie eine rudimentäre Form der Farbtrennung durchführen, indem Sie einfach die Textfarbe, die Sie nicht drucken möchten, in Weiß ändern und dann das Dokument drucken. Wenn Sie den Vorgang umkehren, wird die andere Farbe gedruckt.

Mit dem folgenden VBA-Makro können Sie beispielsweise farblich getrennten Text für ein Dokument drucken, das sowohl roten als auch schwarzen Text enthält:

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

Beachten Sie einige Dinge über das PrintSeps-Makro. Zunächst wird Ihr Dokument gespeichert. Dies geschieht, weil das Dokument nach Abschluss der Ausführung des Makros verworfen wird. Durch Speichern können Sie das Dokument zu einem späteren Zeitpunkt von der Festplatte laden. Die andere zu beachtende Sache ist, dass dies nur für Dokumente funktioniert, die nur roten und schwarzen Text enthalten. Wenn Sie andere Farben haben, werden diese Farben auf beiden Durchgängen gedruckt. Wenn Sie weißen Text haben, wird dieser mit dem roten Pass gedruckt. Wenn Sie Grafiken haben, werden diese nicht getrennt. (Wenn Sie Grafiken haben und diese trennen möchten, sollten Sie auf jeden Fall ein Desktop-Publishing-Programm verwenden.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1795) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Farbseparationen mit VBA drucken.