[Helmut Weber[_2_]]

Hi Eric

for testing in single step mode [F8]

Sub Test0001()
Dim oTbl As Table
Dim rTmp As Range
ActiveDocument.Bookmarks("Table2").Select
Set rTmp = ActiveDocument.Bookmarks("Table1").Range
rTmp.Select
Set oTbl = ActiveDocument.Bookmarks("Table3").Range.Tables(1)
oTbl.Select
End Sub





--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP