Имя: Пароль:
1C
1С v8
v8:Заполнение шаблона Word 2007-2010 из 1С
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 = ТекстДляВставки;