Word Zellen in Tabelle verbinden (OLE)

[rollstuhlfahrer]

Hi @all,

in einem Word-Dokument lasse ich eine Tabelle mit mehrern Spalten erzeugen. Jetzt sollen in mehreren (nicht allen) Zeilen Zellen verbunden werden. Der Makro-Generator hat funktionierenden VBA-Code ausgespuckt. Wenn ich diesen allerdings in Delphi-Code übersetzen, dann bricht dieser immer mit einer Fehlermeldung ab. Egal was ich versucht habe, der Tenor dieser Meldungen ist immer, dass entweder eine Funktion überhaupt nicht existiere, zu wenige oder falsche Parameter verwendet werden.

Delphi-Quellcode:

var
  WordApp: OleVariant;
  Dokument: OleVariant;
const
  Pfad = 'C:\Dokument.docx';
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Open(Pfad);
  Document := WordApp.ActiveDocument;

  // Tabelle erzeugen
  Document.Tables.Add(WordApp.Selection.Range, 7, 4, wdWord9TableBehavior);

  WordApp.Selection.TypeText('Zeile 1, Spalte 1');

  WordApp.Selection.MoveRight(wdCell);
  WordApp.Selection.MoveRight(wdCharacter, 3, wdExtend);
  WordApp.Selection.Cells.Merge(); // <-- Hier der Fehler mit zu wenigen Parametern
  WordApp.Selection.TypeText(FieldByName('Zeile 2; 3 Spalten verbunden').AsString);
  WordApp.Selection.MoveRight(wdCell);

  WordApp.Selection.TypeText('Zeile 2, Spalte 1');
  // [...]

Laut Doku hat Merge aber keine Parameter.

Die auf StackOverflow genannt Lösung bricht bei mir auch mit einem Fehler ab. Hier kommt bei der Zeile mit "EndCell := Table.Cell(2, 1 + 3);" der Fehler, dass "das Element nicht in der Aufzählung vorhanden ist".

Kann mir da bitte jemand weiterhelfen?

Delphi XE8 + Word 2013

Grüße