Using your test document, which is far more complex than I had anticipated, the process is indeed much slower than in Word 2010 and even in 2010, your test document took rather longer than 8 seconds, however while my PC may have a lot of memory and a very fast drive, it does not have a particularly fast processor.
As you are processing a lot of paragraphs sequentially, there is not a lot you can do to speed that process.
If you can eliminate many (or all) of the unwanted paragraphs using the replace function then the process would have less to do and thus be faster. 'Replace' is infinitely faster than the paragraph looping.
e.g. a wildcard search for
\! \! \!*^13
replace with nothing will remove a lot of unwanted paragraphs very quickly and the processing time of your macro was then reduced to a third.
You should be able to remove many of the others similarly, but as the document is a mock up without real values, it is difficult to suggest the wildcard strings required, however see
http://www.gmayor.com/replace_using_wildcards.htm