Ha ha...Yeah, I got a little excited and was already starting to incorporate your code into my other macros and I ended up posting the wrong one. Thank you again macropod, I am new to VBA so I appreciate you helping me!
Code:
Sub LINE_REVISE()
'
'
Dim StrTmp As String
With Selection
.Start = .Paragraphs.First.Range.Start
.End = .Paragraphs.First.Range.End - 1
StrTmp = Trim(Replace(Replace(.Text, "|Z| ", "ZR"), "|", ""))
.Text = StrTmp
End With
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
End Sub