Word -Dokument den Cursor positionieren

[aaron]

Hallo liebes Forum,

ich füge den Inhalt eines Stringgrid's in Word ein:

Delphi-Quellcode:

  //1. spalte zentriert
    WordApp.Selection.movedown(wdline, lineszaehler, wdextend);
    WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
  //nächste Spalte
    WordApp.Selection.moveright(wdcharacter, 1);
    if wordversion = '12.0' then
      WordTable.Style := 'Tabellengitternetz';
    begin
      ProgressBar1.Max := iRows;
      for iGridRows := 1 to iRows do
      begin
        ProgressBar1.Position := 6 + iGridRows;
        for jGridCols := 1 to iCols do
        begin
          WordTable.Cell(iGridRows, jGridCols).Range.Text := StringGrid2.Cells[jGridCols - 1, igridRows - 1];
        end;
      end;
    end; end else
    ProgressBar1.Position := 0;

Meine Frage wäre, wie kann ich den Cursor ans Ende unter die Tabelle setzen?

Freundliche Grüße
Aaron

[aaron]

Hab's doch rausgefunden:

Delphi-Quellcode:

WordApp.Selection.EndKey(wdStory);

Viele Grüße
aaron

[Trille]

Ich muss das Thema nochmal hochholen.

Ich füge eine Tabelle hinzu

Delphi-Quellcode:

// Tabelle hinzufügen
curTable := WordDocument.Tables.Add(WordApplication.Selection.Range, 5, 3,
          defaultTableBehavior, autoFitBehavior);

Nun möchte ich unterhalb dieser Tabelle (eine Zeile Abstand) noch eine Tabelle einfügen.

Ich habe nun folgendes Versucht

Delphi-Quellcode:

moveUnit, moveCount, ext:olevariant;

moveUnit := wdStory;
moveCount := 1;
WordApplication.Selection.EndKey(moveUnit, moveCount);

Er springt zwar ans Ende der Tabelle, nur ist diese nun komplett markiert. Wie kann ich es bewerkstelligen, dass ich beide Tabellen mit einer Leerzeile dazwischen anzeige?