Macro to select only tables in Word

[gmaxey]

If the goal is to copy a documents tables to the clipboard, you can use this:

Sub CopyDocTablesToClipboard()
Dim oTbl As Table
Dim oDoc As Document
Dim oTempDoc As Document
Dim oRng As Range
 Application.ScreenUpdating = False
 Set oDoc = ActiveDocument
 Set oTempDoc = Documents.Add(ThisDocument.AttachedTemplate.FullName, , , False)
 For Each oTbl In oDoc.Tables
   Set oRng = oTempDoc.Range
   oRng.Collapse wdCollapseEnd
   oTbl.Range.Copy
   oRng.Paste
   Set oRng = oTempDoc.Range
   oRng.Collapse wdCollapseEnd
   oRng.InsertAfter vbCr
 Next oTbl
 oTempDoc.Range.Copy
 oTempDoc.Activate
 oTempDoc.Close wdDoNotSaveChanges
lbl_Exit:
  Exit Sub
End Sub