Delpi Word mehrere Tabellen erstellen

[Nimmersatt]

An Alle,


Danke für die Hilfe !

Die Lösung von Ghubi01 ist das, wonach ich gesucht habe.

Für diejenigen, die problemlos mehrere Tabellen in Word erzeugen wollen, hier noch eimal der gesamte Code

Delphi-Quellcode:

const wdStory = 6;

var wordTable: array[1..2] of OLEVariant;
    e: integer;

begin
  try
    Word := CreateOleObject('Word.Application');
  except
    Exit;
  end;

  Word.Visible := True;
  NewDoc := Word.Documents.Add;

  for e:=1 to 2 do
  begin
    WordTable[e]:=NewDoc.Tables.Add(Word.Selection.Range,2,2);
  
    WordTable[e].Cell(1,1).Range.Text :='aaa';
    WordTable[e].Cell(1,2).Range.Text :='bbb';
    WordTable[e].Cell(2,1).Range.Text :='ccc';
    WordTable[e].Cell(2,2).Range.Text :='ddd';

    wordTable[e].Borders.InsideLineStyle :=1;
    wordTable[e].Borders.outsideLineStyle :=1;

    Word.Selection.Endkey(wdStory);    
    Word.Selection.TypeText(#13#10);
  end;
end;

mfg Nimmersatt