Here's a Visual Basic Macro to remove unwanted carriage returns from emails in preparation for inserting them in a Word template:
Sub stripcarriagereturns()
'
' stripcarriagereturns Macro
' Macro published in Brigada Today 14 of Oct., 2005 issue
'
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
' .Execute Findtext:="^p^p", ReplaceWith:="@$$@", Replace:=wdReplaceAll
' .Execute Findtext:="^p", ReplaceWith:=" ", Replace:=wdReplaceAll
' .Execute Findtext:="@$$@", ReplaceWith:="^p^p", Replace:=wdReplaceAll
.Execute Findtext:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll
.Execute Findtext:="^p ", ReplaceWith:="^p", Replace:=wdReplaceAll
.Execute Findtext:=" ^p", ReplaceWith:="^p", Replace:=wdReplaceAll
.Execute Findtext:="^p^p", ReplaceWith:="%$#@", Replace:=wdReplaceAll
.Execute Findtext:="^p", ReplaceWith:=" ", Replace:=wdReplaceAll
.Execute Findtext:="%$#@", ReplaceWith:="^p^p", Replace:=wdReplaceAll
End With
End Sub