Moin

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

zusammenfalten · markieren

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!

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

Danke marabu!

Wenn ich nun folgendes versuche:

markieren

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?

schonmal die Hilfe bemüht?

markieren

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:

markieren

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);

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:

markieren

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?

Hallo Christoph,

dein array und mein array sind nicht das gleiche:

markieren

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

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

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

Folgendes geht beispielsweise nicht:

markieren

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...