Range.Copy (Word)
Copia el intervalo especificado en el Portapapeles.
ActiveDocument.Paragraphs(1).Range.Copy
Set myRange = ActiveDocument.Range _
(Start:=ActiveDocument.Content.End - 1, _
End:=ActiveDocument.Content.End - 1)
myRange.Paste