CftClub.ru

[ulge]

Добрый день, коллеги! Требуется помощь.

Дорабатываю фирменную анкету клиента OOXML. В отличие от фирменной требуется проверки выводить в файл Word, а не Excel. Создал свой шаблон с двумя табличками, одна - анкета, другая - список проверок клиента на терроризм. В последней несколько строк. Вывожу в нее, а добавить новую строку не могу из операции. И функции не могу такой найти. TblCopyRow копирует только из существующей строки в существующую. Если пытаться выводить в несуществующую строку, то не ругается, но и строки не добавляет. Как программно добавить строку в таблицу? Количество элементов, которое надо выводить в таблицу, зависит от клиента. Заранее не известно. Срочно нужно, завтра сдавать.

[Alkov]

Не OOXML.
в операции MSWORD_SCRIPT
есть такой кусок
elseif row_regime_ident = "ADD" then
if row_regime_num < 0 then
TRowNumAfter = T.Rows.Count + row_regime_num + 1
else
TRowNumAfter = row_regime_num - 1
end if
T.Rows(TRowNumAfter).Select
WordApp.Selection.Copy
WordApp.Selection.Start = WordApp.Selection.End
WordApp.Selection.Paste
Set objRow = T.Rows(TRowNumAfter+1)
end if

[ulge]

Все таки copyTblRow из DOC_SAX копирует строку таблицы и вставляет строку-копию на заданное место. Просто позиция новой строки не должна быть за пределами количества строк таблицы. Нельзя указать что новая строка должна быть последней в таблице. Только перед существующей. Примеры в ИБСО есть, например
::[VZ_CARDS].[OBC_COURIER_OUT], для вставки используется эта функция