Hallo Alle zusammen,
In einer Anwendung möchte ich ein Word Dokument öffnen, und dann anzeigen. Hierbei gibt es jedoch die Fehlermeldung
"Befehl kann nicht ausgeführt werden, da kein Dokument geöffnet ist"
Ich habe dazu eine kleine Testroutine geschrieben, die den gleichen Fehler erzeugt:
Delphi-Quellcode:
procedure TForm7.btn1Click(Sender: TObject);
var
WordApp: OLEVariant;
begin
FFileName := ed1.Text;
if not FileExists(FFileName) then
begin
ShowMessage('Datei Existiert nicht');
exit;
end;
try
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := cbVisible.Checked;
WordApp.Documents.Open(Filename := FFilename,
ReadOnly := false);
except
ShowMessage('Open Fehlgeschlagen');
if WordApp.Documents.Count = 0 then
WordApp.Quit;
end;
end;
Der Fehler tritt nur dann auf, wenn WordApp.Visible := false.
Ist dieser Fehler jemandem von euch bekannt? Mache ich vielleicht irgendetwas falsch?
Edit: Sichtbar werden soll das Word fenster ja erst hinterher, in dieser Testroutine hab ich die folgenden Bearbeitungsschritte und das Sichtbarmachen nicht mehr berücksichtigt.
Gruß
Alex