Sub Macro1()
Dim oRng As Range
Dim oPara As Range, oNewPara As Range
Dim i As Long
    Set oRng = Selection.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
        oNewPara.Font.Italic = True
    Next i
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Set oNewPara = Nothing
    Exit Sub
End Sub