Я мало знаком с VBA. Пишу из под VFoxPro
Стоит задача разобрать документ Worda на следующие части:
1) таблицы
2) то что стоит между таблицами

Программа

Oword = CreateObject("Word.Application")
cFile ='H:\#\1.doc'
Oword.Documents.Open(cFile)

Данный документ можно разобрать по словам используя коллекцию слов
oword.Documents(1).Words(i).Text где i=1 до oword.Documents(1).Words.Count

определяю первое слово таблицы:
oword.Documents(1).Tables(1).Select
oword.Selection.Words.First - это как я понимаю и есть первое слово таблицы

Вопрос:
Как узнать номер этого слова в коллекции oword.Documents(1).Words

Предложенный способ будет работать некорректно в следующих случаях:
1) Если есть две таблицы с одинаковым заголовком
2) Если есть слово в документе, совпадающее с первым словом заголовка таблицы

Я надеялся что можно как то пометить объект oword.Documents(1).Words(i)
Например если бы было свойство Comment, то:
oword.Documents(1).Words(i).Comment=str(i)
Подскажите есть ли подобное свойство? Нашел ID, но это похоже что то другое.
При присваивании не выдает ошибку, но свойство не меняется

Единственный способ (правда очень корявый), который я вижу
1)Создать копию документа
2)В этой копии делаю следующие присваивания:
oword.Documents(2).Words(i).Text=str(i)
где i от 1 до oword.Documents(2).Words.Count

Тогда абсолютный номер Documents(1).Tables(1).Range.Words.First будет:
val(Documents(2).Tables(1).Range.Words.First.Text)