0
Sarmen
30.06.17
✎
10:05
|
Здравствуйте!
Подскажите, пожалуйста, как документ Word заполнить с использованием нескольких шаблонов строк?
Т.е. примерно так:
Пробую делать через Selection - но не пойму как хранить и вставлять при необходимости несколько шаблонов для вставки?
|
|
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}"
и т.д....
по количеству необходимых строк комментария.
Далее стандартная замена, но уже по каждой строке с номером строки.
|
|