Sub Macro1()
Dim oRng As Range
Dim oPara As Range, oNewPara As Range
Dim i As Long
Set oRng = ActiveDocument.Range
If oRng.End = ActiveDocument.Range.End Then
oRng.InsertParagraphAfter
End If
For i = oRng.Paragraphs.Count To 1 Step -1
  Set oPara = oRng.Paragraphs(i).Range
  Set oNewPara = oPara.Duplicate
  oNewPara.Collapse 0
  oNewPara.FormattedText = oPara.FormattedText
  oPara.Font.Hidden = True
Next i
lbl_Exit:
Set oRng = Nothing
Set oPara = Nothing
Set oNewPara = Nothing
Exit Sub
End Sub