Имя: Пароль:
1C
1С v8
Хитрая задачка - таблица в шаблоне Word
,
0 Dmitriy_
Kolesnikov
 
28.11.12
22:25
Задали сегодня задачу, подскажите, где можно посмотреть пример реализации?
Задача такая. Есть макет в Ворде (3 страницы с колонтитулами). В нем несколько таблиц. Надо не просто заполнить этот макет, а в паре таблиц создать нужное количество строк.
Подскажите, где посмотреть пример изменения таблицы в Ворде.

Прошу не предлагать реализовать это на основе макета 1С. Там колонтитулы с картинками, 1С так не может.
1 YHVVH
 
28.11.12
22:50
это сделать нельзя , иди спать.
2 Dmitriy_
Kolesnikov
 
28.11.12
22:56
Тогда как можно? Условие простое - картинки в колонтитулах + несколько таблиц в тексте.
3 Dmitriy_
Kolesnikov
 
29.11.12
10:56
Поднимем!
4 cw014
 
29.11.12
10:57
Бюджет? :)
5 Dmitriy_
Kolesnikov
 
29.11.12
11:07
(4) я прошу не решить задачу за меня, а указать направление.
6 cw014
 
29.11.12
11:08
В яндексе набираешь vba word
И смотришь методы работы с вордом
7 cw014
 
29.11.12
11:08
Пойдет направление?
8 sergeante
 
29.11.12
11:08
(0)

чтото типа



       Док.Tables(3).Select(); // если этого не сделать, то не находит таблицу
       Для каждого Стр Из СпецСсылка.Товары Цикл

                   // тут ячейки в строке заполняются

           Док.Tables(3).Cell(Стр.НомерСтроки, 1).Range.Text = Стр.Товар.Наименование;
           Док.Tables(3).Cell(Стр.НомерСтроки, 2).Range.Text = Стр.ЕдИзм.Наименование;
           Док.Tables(3).Cell(Стр.НомерСтроки, 3).Range.Text = Стр.Количество; //Формат(Стр.Количество, "ЧДЦ=3");
           Док.Tables(3).Cell(Стр.НомерСтроки, 4).Range.Text = Формат(Стр.Цена, "ЧДЦ=2");
           Док.Tables(3).Cell(Стр.НомерСтроки, 5).Range.Text = Формат(Стр.СуммаНДС, "ЧДЦ=2; ЧН=-");
           Док.Tables(3).Cell(Стр.НомерСтроки, 6).Range.Text = Формат(Стр.Сумма, "ЧДЦ=2");
           Если Стр.НомерСтроки < СпецСсылка.Товары.Количество() Тогда
               Док.Tables(3).Cell(Стр.НомерСтроки, 6).Select(); // выбираем последнюю ячейку в последней строке (хз зачем, но видимо так надо было)
               Док.Application.Selection.InsertRowsBelow(1);    //<<<<<<<<<<<<<<< тут добавляется строка снизу
           КонецЕсли;
       КонецЦикла;
9 KAO111
 
29.11.12
11:26
10 Юрий Юрьевич
 
29.11.12
11:32
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.