Sub Macro1()
Dim oSource As Document
Dim oDoc As Document
Dim lngPara As Long
Dim oRng As Range
    Set oSource = ActiveDocument
    oSource.Save
    Set oDoc = Documents.Add(oSource.FullName)
    oDoc.Range.Text = ""
    For lngPara = oSource.Paragraphs.Count To 1 Step -1
        Set oRng = oDoc.Range
        oRng.Collapse 0
        oRng.FormattedText = oSource.Paragraphs(lngPara).Range.FormattedText
    Next lngPara
lbl_Exit:
    Set oDoc = Nothing
    Set oSource = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub