چاپ جداسازی رنگ با VBA

Question

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 توجه کنید. ابتدا سند شما را ذخیره می کند. این کار به این دلیل انجام می شود که وقتی ماکرو اجرا می شود، سند را بیرون می اندازد. ذخیره به شما امکان می دهد سند را در زمان دیگری از دیسک بارگیری کنید. نکته دیگری که باید به آن توجه کنید این است که این فقط برای اسنادی کار می کند که فقط حاوی متن قرمز و سیاه هستند. اگر رنگ های دیگری دارید، آن رنگ ها روی هر دو پاس چاپ می شوند. اگر متن سفید دارید، با پاس قرمز چاپ می شود. اگر گرافیک دارید، جداسازی روی آنها انجام نمی شود. (اگر گرافیک دارید و می خواهید آنها را از هم جدا کنید، قطعا باید از یک برنامه انتشار دسکتاپ استفاده کنید.)