Вход | Регистрация



Работа с WORD из 1с

Работа с WORD из 1с
Я
   LeoKeyn
 
07.06.18 - 10:10
Здравствуйте!
Подскажите пожалуйста. Пытаюсь заполнить WORD по макету, но никак не могу подставить данные в колонтитул. Везде пишут такой метод

Документ.Sections(1).Footers(1).Range.Find.Execute("{" + ЭлементДанных.Ключ + "}",Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,ЭлементДанных.Значение,2)//нижний колонтитул


Но у меня он почему то не срабатывает
 
 
   LeoKeyn
 
1 - 07.06.18 - 10:11
(0) Word = Новый COMОбъект("Word.Application");
        Документ = Word.Documents.add(ИмяВременногоФайла);
   Масянька
 
2 - 07.06.18 - 10:12
(0)    // верхний колонтитул

    мКолонтитул = мДок.Sections.Item(1).Headers.Item(1).Range;
    мКолонтитул.Find.Execute("[ПечНомерДоговора]", 0,0,,,,,,,мНомерДоговора,2); 

Сначала выделяешь колонтитул, а потом уже меняешь.
   LeoKeyn
 
3 - 07.06.18 - 10:15
(2) мКолонтитул = Документ.Sections.Item(1).Footers.Item(1).Range;
               мКолонтитул.Find.Execute("{" + ЭлементДанных.Ключ + "}", 0,0,,,,,,,ЭлементДанных.Значение,2);

Всеравно не работает :-(
   Масянька
 
4 - 07.06.18 - 10:16
(3) И что пишет?
   LeoKeyn
 
5 - 07.06.18 - 10:17
(4) Просто замена не происходит
   LeoKeyn
 
6 - 07.06.18 - 10:17
(4) попробовал еще так
мКолонтитул = Документ.Sections.Item(1).Footers.Item(1).Range;
               мКолонтитул.Find.Execute("{" + ЭлементДанных.Ключ + "}", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,ЭлементДанных.Значение,2);
   Масянька
 
7 - 07.06.18 - 10:18
(5) А вообще в шаблоне что-то меняет?
   LeoKeyn
 
8 - 07.06.18 - 10:18
Обычный метод


Замена = Документ.Content.Find;
            Замена.Execute("{" + ЭлементДанных.Ключ + "}", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, ЭлементДанных.Значение, 2);


Работает без проблем
   Масянька
 
9 - 07.06.18 - 10:19
(8) Шаблон Word?
   LeoKeyn
 
10 - 07.06.18 - 10:20
(9) Двоичный

ИмяВременногоФайла = ПолучитьИмяВременногоФайла(".doc");
    Адрес = ФормированиеДоговораПоШаблону("Макет1");
    Если Адрес = Неопределено Тогда
        Возврат;
    КонецЕсли;
      Макет = ПолучитьИзВременногоХранилища(Адрес);
      Макет.Записать(ИмяВременногоФайла);
        Word = Новый COMОбъект("Word.Application");
        Документ = Word.Documents.add(ИмяВременногоФайла);
 
 Рекламное место пустует
   LeoKeyn
 
11 - 07.06.18 - 10:20
(9) Но в итоге создается ворд из обычного макета
   Масянька
 
12 - 07.06.18 - 10:21
(10) Какой двоичный?!
У тебя шаблон Word или какие-то пляски с макетами 1с?
   LeoKeyn
 
13 - 07.06.18 - 10:21
(12) Шаблон Word
   Масянька
 
14 - 07.06.18 - 10:22
(11) В файле Word, который создается из обычного макета, есть колонтитулы?
   LeoKeyn
 
15 - 07.06.18 - 10:22
(14) Да
   Масянька
 
16 - 07.06.18 - 10:23
(13) Чего? А (11) - это что?
   Масянька
 
17 - 07.06.18 - 10:23
(15) Скрин давай.
   LeoKeyn
 
18 - 07.06.18 - 10:24
(16) Макет хранится в двоичном виде в обработке, после чего сохраняется на диск клиенту и на его основе уже генерится файл ворд, так что по сути да ворд из макета ворд
   LeoKeyn
 
19 - 07.06.18 - 10:24
(17) скрин чего?)
   Масянька
 
20 - 07.06.18 - 10:26
(19) Макета, сформированного файла.
   LeoKeyn
 
21 - 07.06.18 - 10:31
   LeoKeyn
 
22 - 07.06.18 - 10:31
(20) Все параметры нормально подставляются кроме колонтитула
   LeoKeyn
 
23 - 07.06.18 - 10:39
Все примеры уже использовал которые нашел, почему то не помогает...
   LeoKeyn
 
24 - 07.06.18 - 10:59
Никто не знает в чем проблема?
   Сияющий в темноте
 
25 - 07.06.18 - 11:16
А если без 1с делать в колонтитуле поля подставляются?
   LeoKeyn
 
26 - 07.06.18 - 11:25
Рабочий вариант

мКолонтитул = Документ.Sections.Item(1).Footers.Item(2).Range;
            мКолонтитул.Find.Execute("{" + ЭлементДанных.Ключ + "}",Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,ЭлементДанных.Значение,2); 

Для нижнего колонтитула


Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует