вот фрагмент кода
на проверке вхождения в цикл возникает ошибка Position is no valid
Подскажите.. что не так?
Код:
Set body = doc.GetFirstItem("SwitchByDepRT")
Set rtnav = body.CreateNavigator
Set rtrange = body.CreateRange
...
Call rtnav.FindFirstElement( RTELEM_TYPE_TABLE )
Call rtnav.FindFirstElement( RTELEM_TYPE_TABLECELL )
While rtnav.FindNextElement( RTELEM_TYPE_TABLECELL)
Call rtrange.SetBegin(rtnav)
tmp = rtrange.TextRun
Wend
Подскажите.. что не так?