Hallo,
nach dem ich es endlich geschaft habe, wollte ich die Routine so abändern, daß ich alle geöffneten Word-Dokumente finde. Problematisch sind dabei neue Dokumente auf Basis einer Vorlage, welche noch nicht gespeichert sind. Hier steht in der ROT nur der FullName der Vorlage, aber nicht der von Word vergebene Name, z.B. "MeineVorlage1".
Also dachte ich mir, ich gehe die Word-Instanzen in einer Schleife als OLEVariant in der Variable "App" durch und lese dann die Documents[..] aus :
Delphi-Quellcode:
function LeseWordDokumente(App: OLEVariant): TStringList;
var
i : Integer;
Datei : OLEVariant;
begin
Result := TStringList.Create;
if UpperCase(App.Name) = 'MICROSOFT WORD' then
begin
for j := 1 to App.Documents.Count; do
begin
Datei := App.Documents[j]; // <-- hier tritt der Fehler auf !!!!
SL.Add(Datei.FullName);
end;
end;
Aber, warum kann ich die Dokumente nicht, analog VBA, mit App.Documents[j] ansprechen? Ich erhalte immer eine
Exception.
Bei Excel funktioniert App.Workbooks[j] einwandfrei.
Gruß aus Köln
Thomas