Ms Word Macro to delete all paragraph mark or new line character
Many times, while pasting text from other source to Ms Word, we end up getting unnecessary newline character at the end of each line. This was bothering me since long and I wanted a smart way to get rid the un wanted newline character. Then I found the following macro that solves the problem in 1 click.
Sub DeleteLNewLine() Dim oRng As Word.Range Set oRng = Selection.Range If oRng.Characters.Last = Chr(13) Or oRng.Characters.Last = Chr(11) Then oRng.End = oRng.End - 1 End If oRng.Text = Replace(Replace(oRng.Text, Chr(11), " "), Chr(13), " ") lbl_Exit: Exit Sub End Sub