A
Azrael
Ситуация: есть документ с установками, в нем есть rich-text'овое поле с шапкой таблицы. Нужно таблицу перенести в новый документ и добавить строки, знакомая ситуация, не правда ли? В одной базе код работает как часы. А в другой - упорно не хочет находить таблицу :
Код:
'itemP - richtext из документа-справочника, смотрел в дебаггере, все путем
Call itemP.CopyItemToDocument(doc, "tblLines")
'item - в новом доке
Set item = doc.GetFirstItem("tblLines")
'Set item = itemP.CopyItemToDocument(doc, "tblLines") - тоже не работает если что
Call item.Update() 'на всяк случай, без него тоже не работает
Set rtNav = item.CreateNavigator() 'навигатор (объявлен выше)
If Not(rtNav.FindFirstElement(RTELEM_TYPE_TABLE)) Then 'а вот здесь мы и ругаемся
'при этом ругается, даже если сделать Set rtNav = itemP...
'RTELEM_TYPE_TABLECELL - тоже не находит
Msgbox "Не найдена таблица строковой части бланка-заказа!",48
Exit Sub
End If