Hallo möchten mit hilfe von Word eine *.doc Datei zu einer *.rtf datei umwandeln.
habe mit OleVariant schon word öffnen können und auch eine *.rtf Datei erzeugen können.
Das Problem ist nur das ich mit "CreateProcess" diesen Externen aufruf überwachen und in den Hintergrund schieben will. Also bis jetzt ist es so das ich den Focus verliere wenn er zu dem Codestück kommt.
Mit "CreateProcess" kann man sich informationen über den Status des ausgeführten programms hollen.
Was nun das Problem ist das ich kein externes Programm aufrufe sondern eine Objekt nutze.
Meine bisherigen Erfolg habe ich hier mal gepostet:
Delphi-Quellcode:
function doctortf(quelle: string; ziel: string): boolean;
var
V: OleVariant;
begin { func doctortf }
try
V:=CreateOleObject('Word.Application');
v.visible:=false;
V.Documents.open(FileName:=quelle, {ConfirmConversions:=true,}
ReadOnly:=False, AddToRecentFiles:=False, PAsswordDocument:='',
PasswordTemplate:='', Revert:=False, WritePasswordDocument:='',
WritePasswordTemplate:='', Format:=wdOpenFormatAuto);
V.ActiveDocument.SaveAs(FileName:=ziel, FileFormat:=wdFormatRTF,
LockComments:=False, Password:='', AddToRecentFiles:=True,
WritePassword:='', ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False,
SaveFormsData:=False, SaveAsAOCELetter:=False);
V.Quit;
except
// if (varisclear(v)) or (varisnull(v)) then
begin
abbruch:=true;
application.messagebox(pchar('Es wurde keine Word-Installation '+
'vorgefunden!'), 'Fehler!', mb_ok);
exit;
end;
end;
end; { func doctortf }
Ich hoffe es kann mir hier jemand helfen. Bin schon am verzweifeln....!!!!
Danke im vorraus