This example copies and pastes the first table in the active document into a new document.
If ActiveDocument.Tables.Count >= 1 Then
ActiveDocument.Tables(1).Range.Copy
Documents.Add.Content.Paste
End If
This example copies the first paragraph in the document and pastes it at the insertion point.
ActiveDocument.Paragraphs(1).Range.Copy
Selection.Collapse Direction:=wdCollapseStart
Selection.Paste
This example copies the selection and pastes it at the end of the document.
If Selection.Type <> wdSelectionIP Then
Selection.Copy
Set Range2 = ActiveDocument.Content
Range2.Collapse Direction:=wdCollapseEnd
Range2.Paste
End If