You can also store formatted text in a collection:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCol As New Collection
Dim oDoc As Document
Dim oRng As Range
oCol.Add ActiveDocument.Paragraphs(1).Range.FormattedText
oCol.Add ActiveDocument.Paragraphs(2).Range.FormattedText
Set oDoc = Documents.Add
Set oRng = oDoc.Range
oRng.Text = vbCr + vbCr
'Traspose the formatted text in the new documetn
oRng.Paragraphs(1).Range.FormattedText = oCol.Item(2)
oRng.Paragraphs(2).Range.FormattedText = oCol.Item(1)
lbl_Exit:
Exit Sub
End Sub