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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.