Как добавить ^p к концу каждой строчки?

Sub Печать_параграфов_вместо_переноса()
    Dim i%, pr, Ra As Range, Slovo As Range, RaStart%, FirstLine%, KolStrok%, Line1%, LineOld%, S$
    For Each pr In ActiveDocument.Paragraphs
    Set Ra = pr.Range
    If Ra.ParagraphFormat.LeftIndent > CentimetersToPoints(1.26) And Ra.ParagraphFormat.RightIndent < CentimetersToPoints(13.86) Then
        With Ra
            FirstLine = .Information(wdFirstCharacterLineNumber)
            RaStart = .Start
            .Start = .End - 1
            LineOld = .Information(wdFirstCharacterLineNumber)
            KolStrok = LineOld - FirstLine + 1
        End With
        If KolStrok > 1 Then
            Set Ra = pr.Range
            With Ra
                If .End > .Start Then .End = .End - 1
                .Select
            End With
            Selection.Collapse Direction:=wdCollapseEnd
            Do
                With Selection
                    .MoveLeft Unit:=wdWord, Count:=1, Extend:=True
                    If .Start <= RaStart Then Exit Do
                    S = .Text
                    S = Replace(S, vbLf, "")
                    S = Replace(S, vbCr, "")
                    S = Replace(S, vbTab, "")
                    If Trim(S) <> "" Then
                        Line1 = .Information(wdFirstCharacterLineNumber)
                        If Line1 < LineOld Then
                            Set Ra = Selection.Range
                            Selection.Collapse Direction:=wdCollapseEnd
                            Selection.TypeParagraph
                            LineOld = Line1
                            Ra.Select
                        End If
                    End If
                    Selection.Collapse Direction:=wdCollapseStart
                End With
            Loop
        End If
    End If
    Next
End Sub