Hallo Leute,
wie kann ich ein leeres Dokument öffnen in Word über die Automation von Delphi ? Bedingung ist, es muß auf Office 97,2000 und XP laufen.
Ich habe schon mal folgendes versucht :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| uses
ComObj, ComCtrls;
var
WordApp : OleVariant;
begin
WordApp := CreateOleObject('Word.Application');
screen.Cursor:=crHourglass;
try
WordApp:=GetActiveOleObject('Word.Application');
except
try
WordApp:=CreateOleObject('Word.Application');
except
ShowMessage('Microsoft Word kann nicht starten.');
screen.cursor:=crDefault;
exit;
end;
end;
WordApp.visible:=true;
WordApp.Document.AddOld('EmptyParam','EmptyParam'); |
Beim Ausführen kommt dann folgende Fehlermeldung :
Im Projekt xxxx ist eine Exception der Klasse EOleSysError aufgetreten. Meldung:
'Typkonflikt'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start
fortsetzen.
Was mache ich verkehrt ? Testumgebung : Win200 mit Office XP
Ich bin für jede Hilfe dankbar.
