Word Automation Steuerung aus D5

[sakura]

Anbei eine Prozedure welche alle Dokumente in einem Memo auflistet und das erste automatisch aktiviert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: OleVariant;
begin
  I := 1;
  WordApplication1.Activate;
  while I <= WordApplication1.Documents.Get_Count do
  begin
    Memo1.Lines.Add(WordApplication1.Documents.Item(I).Get_Name);
    if I = 1 then
      WordApplication1.Documents.Item(I).Activate;
    Inc(I);
  end;
end;

......