For your purposes, you could add:
.Font.Bold = False
before, say:
.MatchAllWordForms = False
and change:
ActiveDocument
to:
Selection
then select only the range you want to process. Even so, you will need to ensure there is an empty paragraph wherever a paragraph break is intended. Aside from that, the macro can be run as-is.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]