WordItems Gruppieren

[LoL]

Danke
Das funktioniert soweit!

Nur hab ich das Problem das ich nicht weis wieviele Items ich gruppieren will , da ich die über eine Schleife erstelle und das mal mehr und mal weniger sein können.
Bei der Powerpoint-Serverkomponente war das ganz einfach da dieses Range einfach blos ein Array of Strings erwartet hat. Dafür hab ich einfach ein Dynamisches Array of String genommen und die Größe dann immer mit SetLength angepasst.

Das geht nun leider aber nicht mehr da die Word-Komponente ja leider komischer Weise ein Variant. Nur klappt das bei mir irgendwie nicht so wie ich will. Ich will einfach ein dynamisches Variant Array das ich immer von der größe anpassen kann wie ich das brauche. Das habe ich folgendermaßen gemacht:

Delphi-Quellcode:

var a : variant
begin
  ...
  a := VarArrayCreate([0, 1], varOLEStr);
  a[0] := 'img';
  a[1] := 'textbox';
  winword.ActiveDocument.Shapes.Range(a).Group;
end;

Beim Gruppieren aber kommt folgende fehlermeldung:
"Der angegebene Parameter hat einen unzulässigen Wert"

Kann mir da jemand helfen?