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