Имя: Пароль:
1C
1С v8
8.3 word application две строки нижнего колонтитула
0 xraf
 
27.06.17
16:05
Доброго времени суток!
Если кто сталкивался, подскажите, пожалуйста.
Есть задача в договоре word добавлять в нижний колонтитул что-то типа ____________ {Контрагент} {Дата} _____________ {Руководитель} {Дата}

и строчку ниже этого мелким шрифтом подпись контрагент дата
1 Волшебник
 
модератор
27.06.17
16:06
Добавь, конечно.
2 xraf
 
27.06.17
16:06
Первую строку отлично добавляю через:
Sections(1).Footers(1).Range.Text=
и хочу по аналогии сделать ниже еще
Sections(1).Footers(2).Range.Text=
но тут затык, вторая строчка в колонтитуле уже не выводится
3 Вафель
 
27.06.17
16:08
а попробуй символ переноса строки добавить
4 xraf
 
27.06.17
16:11
Да, так тогда выводится, но вторую строку надо мелким шрифтом "подпись контрагент дата"
5 xraf
 
27.06.17
16:32
Up
6 Волшебник
 
модератор
27.06.17
16:34
Настрой колонтитул и сохрани его в двоичный макет. При выводе бери из макета
7 xraf
 
27.06.17
16:36
(6) через замену потом имеешь в виду? там надо будет дату и фио разные подставлять
8 Волшебник
 
модератор
27.06.17
16:37
сохрани подпись мелким шрифтом "контрагент дата"
9 xraf
 
27.06.17
16:37
Я тут просто вывод через БСП пользую:

ПечатнаяФорма = УправлениеПечатьюКлиент.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета);
10 xraf
 
27.06.17
16:38
и вывожу потом областями
11 xraf
 
27.06.17
16:39
Область = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Области[ИмяМакета]["Договор"]);
        УправлениеПечатьюКлиент.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Ложь);
12 xraf
 
27.06.17
16:40
неужели нельзя добавить вторую строку в колонтитул с форматированием отличным от первой? )
13 xraf
 
27.06.17
16:40
программно
14 Волшебник
 
модератор
27.06.17
16:45
(13) В Word это не реализовано.
15 Вафель
 
27.06.17
16:47
(13) можно конечно.
Запиши макрос, посмотри действия, вставь в код
16 Вафель
 
27.06.17
16:47
Но нельзя сразу присвоить отформатированный текст
17 fedoss
 
27.06.17
17:42
ActiveDocument.Sections(1).Footers(1).Range.Text = "1-st line"
ActiveDocument.Sections(1).Footers(1).Range.InsertParagraphAfter
ActiveDocument.Sections(1).Footers(1).Range.InsertAfter ("2-nd line")
ActiveDocument.Sections(1).Footers(1).Range.Paragraphs(2).Range.Font.Size = 6
18 xraf
 
28.06.17
11:01
(17) сегодня попробую
19 xraf
 
28.06.17
11:37
(17) ухх! Все получилось! Спасибо!!!
20 xraf
 
29.06.17
13:27
(17)

а можете еще подсказать, как номер страницы поместить в центр верхнего колонтитула:

Документ.Sections(1).Headers(1).Range.ParagraphFormat.Alignment = 1;
        Документ.Sections(1).Headers(1).PageNumbers.Add(true,true);

так не получилось
21 xraf
 
29.06.17
13:38
Документ.Sections(1).Headers(1).PageNumbers.Add(1,true); получилось так )
2 + 2 = 3.9999999999999999999999999999999...