[dba-Tech] automate styles in Word

Does anybody know where I might find a VBA script I could twist into 
automating application of certain Word styles (eg smallcaps, or a 
certain font/size combo, or an existing style) to words defined by, say, 
having > 3 chars and already in caps, or words in a list? Thanks.

PB