Delete all text except text of a certain font size

[nhcowboy1]

First, I am not the first person to ask this question - it was asked and answered here: Deleting all text except text of a certain font size

My situation is virtually identical to that of the original poster: I'm copying a .pdf file to word, and need to delete all footnotes - which show up in a smaller font size. So I need to delete all text NOT in font size 12.

This was the non-VBA solution proposed:

Originally Posted by Macropod

• mark all the text as hidden
• use Find/Replace to find all text in your attribute and format as unhidden
• copy the document, then use Paste Special>Unformatted text. This will delete all the hidden text. What remains is the text in your attribute.

Works brilliantly . . . but I really need to save it to a macro (in Word 2004), and have no idea how to do that.