Aha - found an even simpler solution:

• use find/replace to highlight all text in font size 12
• use find/replace to delete all non-highlighted text

But still need to figure out how to save this to a macro . . .