Tabelle formatieren

[little_budda]

Hallo,

ich nutze folgenden Code um eine Tabelle in einem Word Dokument anzulegen und zu füllen.

Delphi-Quellcode:

...
         // Tabelle einfügen
          vWordTable := vWordInstanz.Selection.Tables.Add(vAktiveDocument.Range, StringGridDaten.RowCount, StringGridDaten.ColCount);
          // Daten aus dem Stringrid eintragen
          for iRow := 1 to StringGridDaten.RowCount do
            begin
              for iCol := 1 to StringGridDaten.ColCount do
                begin
                  vWordTable.Cell(iRow, iCol).Range.Text := StringGridDaten.Cells[(iCol - 1), (iRow - 1)];
                end;
            end;

...

Das klappt auch soweit ganz gut.

Ich scheitere nun an zwei Dingen.
1. Wie formatiere ich diese Tabelle?
Spaltenbreite, Hintergrundfarbe, etc.
2. Wenn ich eine zweite Tabelle hinter der ersten anlegen möchte,
dann wird meine erste Tabelle gelöscht. (Verzweifelung)

Ich wäre echt dankbar für ein paar Tipps.

Gruß Holger.

[semo]

mein tipp:

zeichne dir nen makro auf wenn du dein gewünschtes vorhaben in word umsetzt. schau dir dann den quelltext des makros an.

[little_budda]

Klasse Idee mit dem Makro.

Klappt auch schon einiges.
Ich habe nun versucht folgenden VBA CODE

Delphi-Quellcode:

  Selection.Tables(1).Columns(1).PreferredWidthType = wdPreferredWidthPoints
  Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(4)

in Delphi umzusetzten

Delphi-Quellcode:

...
  // Tabelle einfügen
  vWordTable := vWordInstanz.Selection.Tables.Add(vAktiveDocument.Range, StringGridDaten.RowCount, (StringGridDaten.ColCount - 1));
...
  // Spalte 1 auf eine Breite von 4 cm einrichten
  vWordTable.Columns(1).PreferredWidthType := 3;  // wdPreferredWidthPoints = 3
  vWordTable.Columns(1).PreferredWidth := 113;    // 4.0 cm
...

Zur Lauzeit bringt mir die IDE immer einen Fehler mit der Meldung "Colums ist keine Methode".
Denke er stört sich an dem Spaltenindex in der Klammern,
aber ich habe keine Ahnung wie ich den Index sonst setzen soll.

[mkinzler]

Versuch mal
vWordTable.Columns.Items[i]

[little_budda]

Also, die Variante mit Items klappt leider auch nicht so recht.

Mit

Delphi-Quellcode:

vWordTable.Columns.items(1).PreferredWidthType := 3;  // wdPreferredWidthPoints = 3
vWordTable.Columns.items(1).PreferredWidth := 113;    // 4.0 cm

kommt folgend Fehlermeldung:
Die Methode 'Items' wird vom Automatisierungsobjekt nicht unterstützt

Und mit

Delphi-Quellcode:

vWordTable.Columns[1].PreferredWidthType := 3;  // wdPreferredWidthPoints = 3
vWordTable.Columns[1].PreferredWidth := 113;    // 4.0 cm

meckert der Compiler über die nicht unterstützte Methoden "PreferredWidthType" und "PreferredWidth"

Vielleicht hat ja noch jemand eine Idee für mich.

[little_budda]

Oder kann mir, als Alternative,
vielleicht jemand einen Tipp geben wie ich ein Makro in Word starte?

Dann würde ich mir die Formatierungen als Makro speichern und dort ausführen.
Obwohl ich eigentlich der Meinung bin das ich die Formatierung über die OLE Schnittstelle hinkriegen müsste.

[Mike07]

statt "Items" musst du "Item" schreiben und statt eckigen Klammern dann runde klammern verwenden!

also folgendermaßen:
Tabelle.Columns.Item(1).PreferredWidthType:=wdPref erredWidthPoints;
Tabelle.Columns.Item(1).PreferredWidth:=45;

PreferredWidthType erwartet übrigens einen Typ und keine Zahl...