![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Всем прет!
Накопал здесь примерчик как можно заполнять шаблон MSWord-а по меткам но пишет ошибочку не описан индетификатор Код:
GetActiveOleObject Код:
CreateOleObject И второй вопросик в данной ситуации нужно ли подключатся к серверу MSWord WordApplication1.Connect; WordDocument1.Connect; Пример заполнения--> Код:
MSWord:Variant; What,Which,Count,Name:OLEVariant; begin try MsWord := GetActiveOleObject('Word.Application'); except try MsWord := CreateOleObject('Word.Application'); except raise Exception.Create('Ошибка запуска Word'); end; end; try MSWord.Documents.Open(Имя_файла_шаблона); except ShowMessage('Ошибка при попытке WORD загрузить шаблон!'); exit; end; What:=-1; Which:=unAssigned; Count:=unAssigned; Name:='Имя_метки'; MsWord.Selection.GoTo(What,Which,Count,Name); MsWord.selection.TypeText('Текст_метки'); MsWord.Visible:=True; |