Sub CopyTable()
If Selection.Information(wdWithInTable) = False Then
MsgBox "The cursor must be positioned in the table you want to
Copy." _
& vbCr & vbCr & "Position the cursor in a Table and run this macro
again."
Else
Selection.Tables(1).Select
Selection.Copy
Documents.Add
Selection.Paste
End If
End Sub