Имя: Пароль:
1C
 
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
Аааа, тогда понял...

   ВОРД = СоздатьОбъект("WORD.Application");
   Док=ВОРД.Documents.Add(""""+КаталогИБ()+"\ExtForms\PrnForms\UglBlank.dot" + """");
......................................................
   
   // Впечатываем в документ "Word" закладку "судья"
   Закладки=Док.Bookmarks;
   Закладки.Item("СУДЬЯ").Range.Text=СокрЛП(Судья.Сотрудник.Наименование);
   
       // Впечатываем в документ "Word" закладку "номер" в колонтитул

   Закладки.Item("НОМЕР").Range.Text="№ " + СокрЛП(НомерДок);
   ВОРД.Visible=-1;  /// видимость - True
   Док.Activate(); /// активизировать!!!
9 AcaGost
 
09.03.07
11:45
(8) Благодарю, ЗАРАБОТАЛО!