In der
PAS-Datei zur Typelib sieht Merge so aus:
procedure Merge(const MergeTo: Cell); safecall;
und benötigt demnach einen Parameter.
Wenn ich irgendwas mit den Officeprodukten mache und bei den Parametern nicht weiter weiß, verlasse ich mich nie ausschließlich auf erstellte Makros oder irgendwelche Beispiele mit VBA ..., sondern schaue immer auch in die Typelib, da nur die mir (erfahrungsgemäß) korrekte Informationen zu den Parametern liefert.
Versuch es bitte mal mit:
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(EmptyParam); // <-- Bei Parametern, die man nicht befüllen kann oder muss, einfach EmptyParam angeben.
WordApp.Selection.TypeText(FieldByName('Zeile 2; 3 Spalten verbunden').AsString);
WordApp.Selection.MoveRight(wdCell);
WordApp.Selection.TypeText('Zeile 2, Spalte 1');
// [...]