![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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; |