![]() |
|
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); получилось так )
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |