![]() |
![]() |
![]() |
|
1C + Word (ввод данных в колонтитулы) | ☑ | ||
---|---|---|---|---|
0
AcaGost
09.03.07
✎
10:25
|
Проблемма в том, что привводе данных в колонтитулы из 1С, при активации Word(а) документ открывается в виде "обычный" вместо "разметка страницы" и в двух окнах, второе окно - значение колонтитула
|
|||
1
AcaGost
09.03.07
✎
10:32
|
+(0) Как избежать этого?
|
|||
2
smaharbA
09.03.07
✎
10:38
|
код ?
|
|||
3
AcaGost
09.03.07
✎
10:44
|
Процедура ПечатьВорд()
Если ФС.СуществуетФайл(КаталогИБ()+"\ExtForms\PrnForms\UglBlank.dot") = 0 Тогда Сообщить("Нет файла - шаблона " + "UglBlank.dot", "!!!"); Возврат; КонецЕсли; ВОРД = СоздатьОбъект("WORD.Application"); ВОРД.Documents.Add(""""+КаталогИБ()+"\ExtForms\PrnForms\UglBlank.dot" + """"); ...................................................... // Впечатываем в документ "Word" закладку "судья" ВОРД.ActiveDocument.Bookmarks("СУДЬЯ").Select(); ВОРД.Selection.TypeText(СокрЛП(Судья.Сотрудник.Наименование)); // Впечатываем в документ "Word" закладку "номер" в колонтитул ВОРД.ActiveDocument.Bookmarks("НОМЕР").Select(); ВОРД.Selection.TypeText("№ " + СокрЛП(НомерДок)); ................................................... ВОРД.Visible=1; /// видимость - True ВОРД.ActiveDocument.Activate(); /// активизировать!!! ВОРД = ""; /// ссылочку прибить |
|||
4
smaharbA
09.03.07
✎
10:51
|
Т.е. ввод идет интерактивно ?
|
|||
5
AcaGost
09.03.07
✎
10:54
|
Нет, печать идет из реквизитов документа
|
|||
6
smaharbA
09.03.07
✎
10:56
|
(5) а зачем Visible=1 ?
Я немного не понял сути, тебе надо просто заполнить программно колонтитулы ? |
|||
7
AcaGost
09.03.07
✎
11:01
|
Мне нужно на основании шаблона создать документ, заполнить все закладки и заполнить программно колонтитулы. Затем открыть в ВОРДЕ для просмотра и печати
|
|||
8
smaharbA
09.03.07
✎
11:11
|
Аааа, тогда понял...
|
|||
9
AcaGost
09.03.07
✎
11:45
|
(8) Благодарю, ЗАРАБОТАЛО!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |