Delpi Word mehrere Tabellen erstellen

[Nimmersatt]

Macro Recorder ?

Oh, da habe ich überhaupt keine Erfahrung.



mfg Nimmersatt

[Sherlock]

Oder Textmarken erstellen, und durch Tabellen ersetzen lassen.

Ansonsten lies Dich in das Selection Objekt ein. Grundsätzlich empfiehlt es sich anfangs das gewünschte Ergebnis zunächst in VBA zu entwickeln.

Sherlock

[API]

Nach dem Einfügen der 1. Tabelle musst du den Fokus ans Ende des Dokumentes resp. außerhalb der 1. Tabelle setzen.
Sonst einfach mal googeln

https://www.google.com/search?hl=en-...ultiple+tables

[ghubi01]

Hallo,

Delphi-Quellcode:

const 
  wdStory = 6; //!

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

     // Diese Beiden Zeile Code dürften hier helfen:
     Word.Selection.Endkey(wdStory); 
     Word.Selection.TypeText(#13#10);
   end;
   ...

Es gibt sicher noch bessere Lösungen, aber diese hilft erst einmal.

[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