RemoveCr.vbs

Sub NoLineFeed()
' For the selected range, delete all carriage returns
' Typical usecase for this is when some copying action has resulted in
' the clipboard containing physical linefeeds, when only logical ones
' were intended.. and the paste into Word has carried that forward
    With Selection.Range
        .Text = Replace(.Text, vbCr, "")
    End With
End Sub