Segítségnek:

ertek = ActiveDocument.Tables(x).Cell(row, col).Range.Text

x= a táblázat száma, ha az első, akkor=1

Mivel az érték tartalmazza a cella határolót is (asc(7))

ertek = Mid(x, 1, (Len(x) - 1))