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

[nahpets]

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');
  // [...]

[rollstuhlfahrer]

Zitat von nahpets:

In der PAS-Datei zur Typelib sieht Merge so aus:procedure Merge(const MergeTo: Cell); safecall; und benötigt demnach einen Parameter.
[...]

Das hat auch einen Fehler ergeben. Diesmal "Unzulässige Anhzahl an Parametern". An anderer Stelle ist mir heute aufgefallen, dass es einen Unterschied macht, wenn man im Aufruf einer Prozedur ohne Parameter die Klammern setzt oder nicht.

WordApp.Selection.Cells.Merge(); funktioniert nicht. Verwendet man aber WordApp.Selection.Cells.Merge; (Hinweis: Ohne Klammern), dann funktioniert es.

Danke dennoch für den Hinweis.

Grüße

[HolgerX]

Hmm..

könnte es nicht sein, das Selection.merge keinen Parameter braucht (und somit auch keine () ).
Hingegen in dem Beispiel aus dem Link mit Cell.Merge gearbeitet wird und dort eine weiter Cell angegeben werden muss, bis der ein Verbinden stattfindet...

Ich schaue dann immer in der API bei Microsoft...