Объект Table имеет свойство ID, которое вы можете получить / установить, хотя он предназначен для сохранения только в виде веб-страницы, и поэтому любые установленные идентификаторы не сохраняются в .doc (x | m) формат.
Существует поле описания (.Descr), которое было добавлено в Word 2010, которое вы могли бы использовать, но даже Word 2007 не поддерживает его, я не знаю, будет ли это проблемой, если вы используете свою работу в другом месте, кроме среда, которую вы заявляете.
Dim cTbl, targetTbl As Table
For Each cTbl In ActiveDocument.Tables
If cTbl.Descr = "target-id" Then
Set targetTbl = cTbl
Exit For
End If
Next
Лучше всего, если нет, - убедиться, что в таблице есть известная ячейка с идентификатором для этой таблицы, и перебирать таблицы, пока не найдете нужную. Либо так, либо заранее знайте порядок столов (кажется, что это не вариант для вашего сценария). Возможно, вы могли бы использовать собственные стили для каждой таблицы, которые ничего не делают, но имена которых можно использовать для идентификации - аналогично использованию классов CSS для идентификации в HTML DOM.