Include end paragraph mark of previous paragraph in selection

[Jfp87]

Could you not just change .Text = "(^013)([0-9]@)([\)])([ ])" to .Text = "([0-9]@)([\)])([ ])"