0
DmitrYY
21.07.20
✎
20:52
|
Добрый вечер!
Подскажите что я делаю не так, вот код:
Если ДокументWord.Bookmarks.Exists("Таблица") Тогда
//Выделяем обязательную закладку начала таблицы
ДокументWord.Bookmarks("Таблица").Select();
//Перемещаемся вниз, выделяем строку таблицы и копируем ее в буфер обмена
ДокументWord.Application.Selection.MoveDown();
ДокументWord.Application.Selection.SelectRow();
ДокументWord.Application.Selection.Copy();
ДанныеТЧ = ЭтотОбъект.ТабличнаяЧасть.Выгрузить();
Для каждого Стр Из ДанныеТЧ Цикл
//Заменяем значения
НомерТЧ = Прав(Стр.Документ.Номер,4);
ДокументWord.Application.Selection.Find.Execute("НомерТЧ" ,,,,,,,,,"-№ " + НомерТЧ, 2);
ДатаТЧ = Формат(Стр.Документ.Дата, "ДФ=dd.MM.yyyy");
ДокументWord.Application.Selection.Find.Execute("ДатаТЧ" ,,,,,,,,," от " + ДатаТЧ, 2);
//Последний параметр поиска пустой
СуммаТЧ = Строка(Стр.Документ.СуммаДокумента);
ДокументWord.Application.Selection.Find.Execute("СуммаТЧ" ,,,,,,,,,"сумма " + СуммаТЧ + " руб.",);
//Перемещаемся вниз, вставляем из буфера обмена строку
ДокументWord.Application.Selection.MoveDown();
ДокументWord.Application.Selection.Paste();
//Перемещаемся вверх и выделяем строку для замены значений
ДокументWord.Application.Selection.MoveUp();
ДокументWord.Application.Selection.SelectRow();
КонецЦикла;
//Вырезаем лишнюю строку
ДокументWord.Application.Selection.Cut();
//Скрываем обязательную закладку начала таблицы
ДокументWord.Bookmarks("Таблица").Select();
ДокументWord.Application.Selection.TypeText(" ");
КонецЕсли;
вот результат кода:
нужно чтобы строки шли по порядку, а после них уже выводился итог.
|
|