Quicksilver? Jag markerar de saker jag vill färga, startar QS med en trigger för "Command window with selection" (använder kommando+option+mellanslag), väljer Set Label... som action, färg i sista rutan.
Jag gör inte det här jätteofta, men det skulle säkert gå att göra ännu enklare, exempelvis en custom trigger som gör allt. "Current Selection (Set Label...) [färg]" bunden till någon obskyr tangentkombination.