Всем прет!
Накопал здесь примерчик как можно заполнять шаблон MSWord-а по меткам но пишет ошибочку не
описан индетификатор и
Подскажите пожалуйста как их описать в раздел переменных var .
И второй вопросик в данной ситуации нужно ли подключатся к серверу MSWord
WordApplication1.Connect;
WordDocument1.Connect;
Пример заполнения-->
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | 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 ;
|