Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Работа с таблицами Word в 1С

Работа с таблицами Word в 1С
Я
   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(" ");
        
    КонецЕсли;


вот результат кода: https://dropmefiles.com/oOeIM
нужно чтобы строки шли по порядку, а после них уже выводился итог.
   DmitrYY
 
1 - 21.07.20 - 21:26
Вопрос отменяется, косяк в был в ворде)

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.