Имя: Пароль:
1C
1С v8
Заполнение документа Word
0 Sarmen
 
30.06.17
10:05
Здравствуйте!

Подскажите, пожалуйста, как документ Word заполнить с использованием нескольких шаблонов строк?

Т.е. примерно так: http://clip2net.com/s/3LKNplr
Пробую делать через Selection - но не пойму как хранить и вставлять при необходимости несколько шаблонов для вставки?
1 Sarmen
 
30.06.17
10:08
Получается через Selection вставлять в текст в цикле начало структуры:

Строка 1
    Строка 2
    Строка 3
         Комментарий 1


а дальше - как вставить произвольное количество строк Комментарий 2, Комментарий 3 и т.д. ?
2 Sarmen
 
30.06.17
10:12
Делаю так:


// Подготовить макет данных для дальнейшей множественной вставки //*****
        Selection = Word.Selection; //объект для программной работы с выделенным участком текста в VBA
        Find = Selection.Find; //объект для программного поиска и замены текста в документе Word средствами VBA, БЕРЕМ ИЗ Selection
        Find.Text = "{Строка1}" + Символы.ВК + "{Строка2}" + Символы.ВК + "{Строка3}" + Символы.ВК + "{Комментарий}" + Символы.ВК;
        Если Find.Execute() Тогда //метод для запуска поиска, если Истина, то вхождения найдены
              Selection.Copy();
        КонецЕсли;




Затем вставляю так:
Selection.Paste();

и заменяю через


Замена = ТекДок.Content.Find;
    Замена.Execute("Строка1", Ложь, Истина, Ложь, , , Истина, , Ложь, ТекстДляВставки);


Но ещё один Selection для строк {Комментарий} создать не получается. Т.к. новый Selection заменяет старый.
3 Sarmen
 
30.06.17
10:41
Решил задачу путём предварительной замены метки "{Комментарий}" на несколько меток:

"{Комментарий1}"
"{Комментарий2}"
    и т.д....

по количеству необходимых строк комментария.
Далее стандартная замена, но уже по каждой строке с номером строки.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс