Zugriff auf MS Excel

[ThoPos]

Hallo,

hab's gefunden:

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.Item(j); // Wichtig: Runde Klammern!!!
    SL.Add(Datei.FullName);
  end;
end;

Gruß aus Köln
Thomas