Hi Jamal,
Shift-Enter creates a manual line break within a paragraph - it does not create a new paragraph. You can delete manual line breaks and tabs by inserting the follwing three lines:
Code:
.Text = "[^t^l]{1,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
before the line:
.Text = "[ ]{2,}"
Do you really want to delete all spaces and punctuation marks? That would give you text like:
Doyoureallywanttodeleteallspacesandpunctuationmark sThatwouldgiveyoutextlike