- 22.08.2008
- 1 851
- 27
вот фрагмент кода
на проверке вхождения в цикл возникает ошибка 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
Подскажите.. что не так?