WordItems Gruppieren

[LoL]

Moin

Ich habe folgenden Code der ein Bild und eine Textbox Gruppieren soll:

Delphi-Quellcode:

var winword: variant;
    a : array [0..1] of string;
    sh_word : Variant;
begin
  try
    winword := GetActiveOleObject('Word.Application') 
  except 
    winword := CreateOleObject('Word.Application');
  end;
  winword.Visible := True;
  winword.Documents.Add;
  sh_word := winword.ActiveDocument.Shapes.AddPicture('einbild.bmp',true,false);
  sh_word.Name := 'img';
  sh_word := winword.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,0,0,100,100);
  sh_word.Name := 'textbox';
  a[0] := 'img';
  a[1] := 'textbox';
  winword.ActiveDocument.Shapes.Range(a).Group;//Error

Laut der MSDN kann man bei der Range Mehrere Strings also auch ein Array mit Strings übergeben. Leider liefert mir aber schon der Compiler folgende Meldung(mit der ich nicht wirklich was anfangen kann):
"Type not allowed in Variant Dispatch call"

Kann der Compiler damit nicht umgehen? Wie kann ich das ansonsten lösen?

Schonmal im Vorraus Danke!

[marabu]

Zitat:

Zitat von LoL

Laut der MSDN kann man bei der Range Mehrere Strings also auch ein Array mit Strings übergeben.

Wenn das so da steht, dann ist damit wohl ein VariantArrayOf() gemeint - meinst du nicht?

Grüße vom marabu

[LoL]

Danke marabu!

Wenn ich nun folgendes versuche:

Delphi-Quellcode:

var a : Variant;
begin
  a := VarArrayCreate([0, 1], varString);

und das Programm starte erhalte ich folge Fehlermeldnung:

Zitat:

Error Creating Variant Array

Was mache ich falsch?

[barf00s]

schonmal die Hilfe bemüht?

[shmia]

Delphi-Quellcode:

var a : Variant;
begin
  // a := VarArrayCreate([0, 1], varString);
  a := VarArrayOf(['img', 'textbox']);

Übrigens:
Es ist empfehlenswert, nicht immer die gesamte Objekthierarchie durchzugehen, sondern man steigt tiefer ein:

Delphi-Quellcode:

var
   shapes : OleVariant;
...
   shapes := winword.ActiveDocument.Shapes; // Interface wird zwischengespeichert, spart einige Zugriffe
sh_word := shapes.AddPicture('einbild.bmp',true,false); 
...
sh_word := shapes.AddTextbox(msoTextOrientationHorizontal,0,0,100,100);

[LoL]

Danke
Das funktioniert soweit!

Nur hab ich das Problem das ich nicht weis wieviele Items ich gruppieren will :mrgreen: , 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?

[marabu]

Hallo Christoph,

dein array und mein array sind nicht das gleiche:

Delphi-Quellcode:

var
  vav, vao: Variant;
begin
  vav := VarArrayOf(['a', 'b']); // variant array of variant
  vao := VarArrayCreate([0, 1], varOleStr); // variant array of olestr
end;

marabu

[LoL]

Hmmm...

Wie kann ich dann mein obengennates Problem lösen? Mir fällt sonst keine Lösung dazu ein.
Der Funktion VarArrayOf kann man ja auch leider nicht ein Array of String als Parameter übergebem.
Über Hilfestellung wäre ich sehr dankbar

[marabu]

Zitat:

Zitat von LoL

Der Funktion VarArrayOf kann man ja auch leider nicht ein Array of String als Parameter übergebem.

Aber das tue ich doch in meinem Beispiel - oder etwa nicht?

marabu

[LoL]

Folgendes geht beispielsweise nicht:

Delphi-Quellcode:

var a : variant; 
    astr : array of String;
begin 
  SetLength(astr,2);
  astr[0] := 'img';
  astr[1] := 'textbox';

  a := VarArrayOf(astr);
end;

da man kein Dynamisches Array übergeben darf.

Das Problem ist das ich aber ein dynamisches Array brauche da ich nicht weis wieviele shapes ich habe da ich die dynamisch erstelle...