[StevenM[_2_]]

Ann,

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

"Ann" wrote:

how do i take data in one word table and create a macro to copy that data to
another word document table? tia.