Skrive ut fargeseparasjoner med VBA

January 8  by Eliza

Ord ikke har den iboende evne til å skrive ut fargeseparasjoner. I stedet, du vanligvis må bruke en fullverdig publiseringsprogram desktop som InDesign for å utføre denne oppgaven. Som blir sagt, kan du utføre en elementær form for fargeseparasjon ved å endre tekstfargen du ikke ønsker å skrive ut til hvitt, og deretter skrive ut dokumentet. Reversere prosessen vil deretter skrive ut den andre fargen.

For eksempel vil følgende VBA-makro kan du skrive ut fargeseparert tekst for et dokument som inneholder både rød og svart tekst:

Sub PrintSeps ()
ActiveDocument.Save
Selection.HomeKey Enhet: = wdStory

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

'Endre Red White
Selection.Find.Font.ColorIndex = wdRed
Selection.Find.Replacement.Font.ColorIndex = wdWhite
Med Selection.Find
.Text = ""
.Replacement.Text = ""
.forward = True
.Wrap = WdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Avslutt med
Selection.Find.Execute Erstatt: = wdReplaceAll
ActiveDocument.PrintOut

'Endre Hvit tilbake til Red
Selection.Find.Font.ColorIndex = wdWhite
Selection.Find.Replacement.Font.ColorIndex = wdRed
Selection.Find.Execute Erstatt: = wdReplaceAll

Endre Auto til White
Selection.Find.Font.ColorIndex = wdAuto
Selection.Find.Replacement.Font.ColorIndex = wdWhite
Selection.Find.Execute Erstatt: = wdReplaceAll

'Endre svart til hvitt
Selection.Find.Font.ColorIndex = wdBlack
Selection.Find.Replacement.Font.ColorIndex = wdWhite
Selection.Find.Execute Erstatt: = wdReplaceAll

Endre Red Black
'Dette er gjort slik at Red vil skrive ut som Black
'På enkelte skrivere, ikke-svarte farger alltid
'Skrive ut som en nyanse av grått. Du vil ha dem bare
'Som svart
Selection.Find.Font.ColorIndex = wdRed
Selection.Find.Replacement.Font.ColorIndex = wdBlack
Selection.Find.Execute Erstatt: = wdReplaceAll

ActiveDocument.PrintOut

ActiveWindow.Close Savechanges: = wdDoNotSaveChanges
End Sub

Oppmerksom på et par ting om PrintSeps makro. Først, det sparer dokumentet. Dette er gjort fordi når makro er gjort i gang, kaster den ut dokumentet. Saving tillater deg å laste dokumentet fra disk på et senere tidspunkt. Den andre ting å merke seg er at dette fungerer bare for dokumenter som inneholder bare rød og svart tekst. Hvis du har andre farger, vil disse fargene ut på begge passerer. Hvis du har hvit tekst, vil den skrive ut med den røde pass. Hvis du har grafikk, er ingen separasjon gjort på dem. (Hvis du har grafikk og ønsker dem separert, du definitivt bør bruke en desktop publishing program.)

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1795) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Skrive ut fargeseparasjoner med VBA.