Need a Macro to Change Every Instance of Small Caps to All Caps and Reduce the Font by 2 Points

[CrossReach]

I have many documents that use small caps. Looks great, but when converted to Kindle they are changed to small caps, which then looks ugly. The original editor did not capitalize the words needed. Even though they are all small caps, if the word was capitalized then they would appear like that when reduced to small caps. i.e. the large cap would remain.



So how would I go about creating a Macro that changed every instance of Small Caps in a document to All Caps while dropping each selection by two font sizes (so they appear relatively the same size as when they were small caps)?