VBA(Microsoft Word)を使用した色分解の印刷
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マクロについていくつか注意してください。まず、ドキュメントを保存します。これが行われるのは、マクロの実行が完了すると、ドキュメントが破棄されるためです。保存すると、後でディスクからドキュメントをロードできます。もう1つの注意点は、これは赤と黒のテキストのみを含むドキュメントに対してのみ機能することです。他の色がある場合は、それらの色が両方のパスに印刷されます。白いテキストがある場合は、赤いパスで印刷されます。グラフィックがある場合、それらの分離は行われません。 (グラフィックがあり、それらを分離したい場合は、デスクトップパブリッシングプログラムを使用する必要があります。)
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(1795)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ:
linkVBAを使用した色分解の印刷。