0
Anion01
24.10.13
✎
13:53
|
Подскажите как сделать заполнение параметров в шаблоне Word в колонтитулах, сейчас заполняет так:
ВыбШаблон = Новый Файл(ФайлДокумента);
Если ВыбШаблон.Существует() Тогда
Word = Новый COMОбъект("Word.Application");
Word.Documents.Open(ФайлДокумента);
Сообщить("Выполняется обработка и заполнение шаблона. Ждите...");
doc = Word.ActiveDocument;
Для Каждого Строка Из ТаблицаРеквизитов Цикл
Selection = doc.Content.Find;
Selection.ClearFormatting();
FindText = СокрЛП(Строка.Реквизит);
ReplaceText = СокрЛП(Строка.Значение);
Selection.Execute(FindText,0,0,0,0,0,0,0,0,ReplaceText,2);
КонецЦикла;
Word.Visible = 1;
КонецЕсли;
Параметры в основном тексте заполняются, а в колонтитулах-нет.
|
|
1
Масянька
24.10.13
✎
13:57
|
Код для 7.7:
// верхний колонтитул
мКолонтитул = мДок.Sections.Item(1).Headers.Item(1).Range;
мКолонтитул.Find.Execute("[ПечНомерДоговора]",0,0,,,,,,,мНомерДоговора,2);
мКолонтитул.Find.Execute("[ПечДатаДоговора]",0,0,,,,,,,Нрег(СокрЛП(мДатаДоговора)),2);
|
|
2
Nina2005
24.10.13
✎
13:58
|
я через закладки в ворде делаю, заполняет и основном тескте и в колонтитулах
Word = Новый COMОбъект("Word.Application");
Word.Documents.Add(ИмяФайла);
Документ=Word.ActiveDocument;
РезультатЗапроса=Запрос.Выполнить();
Выборка=РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
MyRange=Документ.Bookmarks(ИмяЗакладки).Range();
MyRange.Text = ТекстДляВставки;
|
|