Sub PoiskEnterovIZamenaIhNaProbely()
    With ActiveDocument.Content.Find
        .Text = vbCrLf
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdReplaceAll
    End With
    ActiveDocument.Content.Find.Execute 
End Sub

Sub f
ActiveDocument.Content.Find.Execute FindText:=Chr( 13 ), ReplaceWith:=" ", Replace:=wdReplaceAl

end sub