For the scenarios such as you have posted, it appears you want to delete all paragraphs/lines that don't begin with a number (i.e. the day of the month). For that you could use a wildcard Find/Replace, where:
Find = [^13^l]*([^13^l][0-9])
Replace = \1

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