To work with just the selected tables, try changing:
wdDoc As Document
to:
RngSel As Range
and changing:
Set wdDoc = ActiveDocument
With wdDoc
to:
Set RngSel = Selection.Range
With RngSel

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]