Dim sPar As String
Dim par As Paragraph
Dim i As Integer
i = 0
For Each par In ActiveDocument.Paragraphs
If Right(par, 2) = Chr(46) & Chr(13) Then
i = i + 1
Else
If Right(par, 1) = Chr(13) Then
par.Range.Text = Replace(par.Range.Text, Chr(13), " ")
End If
End If
Next par

Если Chr(46) & Chr(13) -  то ничего, 
если просто Chr(13), то на  " " заменяем.

chr(13) - это перевод каретки.
chr(10) - перенос строки