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_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本提示（11243）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。您可以找到此提示的版本，以用于Word的旧菜单界面在这里：

使用VBA打印分色。