Hi tinfanide,

Since you're automating Word from Excel, you need to change 'ActiveDocument' to 'oDoc'. You should also use:
Dim Tbl As Word.Table, Shp As Word.Shape, Rng As Word.Range
and you don't need:
oDoc.Activate
You've also mis-typed some of the code I gave you.

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