Word mit Delphi automatisieren

[Cuchulainn]

Hallo,

Ich versuche, ein Programm mit Delphi zu schreiben, dass unter anderem eine Tabelle in Word zeichnet, mit Daten füllt und formatiert. Die Tabelle konnte ich erstellen, und Daten habe ich auch hineingeschrieben. Jetzt möchte ich sie formatieren, und genau damit habe ich Probleme.
Die Tabelle soll zentriert sein, die Titelleiste hellgelb unterlegt und die Schrift in der Titelleiste soll fett sein.
Ich habe mir in Word ein Makro aufgenommen und wollte mir diesen Quelltext als Vorbild nehmen, doch die benötigten Methoden gibt es in Delphi nicht.
Im Moment versuche ich gerade, die Tabelle zu zentrieren. In VBA sieht das folgendermaßen aus:

Code:

Selection.Tables(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

In Delphi finde ich jedoch keine Möglichkeit, die Tabelle zu markieren. Ich habe es folgendermaßen versucht:

Code:

WordApplication1.Selection.Tables.Select

Allerdings kann ich hier keinen Index angeben, und mit diesem Quelltext geschieht überhaupt nichts.
Eine weiteres Problem ist die Spaltengröße. Ich möchte, dass die Spalten sich dem Inhalt anpassen. In VBA funktioniert das folgendermaßen:

Code:

Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

Doch auch hier finde ich in Delphi keinerlei Möglichkeit.
Die Tabelle erstelle ich übrigens mit folgendem Befehl:

Code:

WordDocument.Tables.Add(Word.Selection.Range, slErgebnis.Count + 1, 5); // slErgebnis ist eine Stringlist

In VBA werden hier noch mehr Parameter übergeben, unter anderem dieses Autofitbehavour. Delphi akzeptiert aber nur diese drei Parameter.

Ich bin dankbar für jede Hilfe.

[Phoenix]

Im MSDN steht einiges drin.

Versuch mal, auf WordDocument.Tables[index].. zu arbeiten.

[Cuchulainn]

Zitat:

Zitat von Phoenix

Im MSDN steht einiges drin.

Danke, ich sehe es mir mal an. Vielleicht finde ich was.

Zitat:

Zitat von Phoenix

Versuch mal, auf WordDocument.Tables[index].. zu arbeiten.

Das habe ich auch schon versucht, funktioniert aber nicht.

[Mario]

Habe jetzt gerade erst den Beitrag gefunden aber vielleicht hilft es ja noch was. Du suchst die Umsetzung von VBA:

Code:

WordApplication1.Selection.Tables(1).Select

nach Delphi:

Delphi-Quellcode:

WordApplication1.Selection.Tables.Item(1).Select

Mehr ist es gar nicht. Wobei ich Dir empfehle, mit Range zu arbeiten, da ist einfach schneller und dynamischer.

[Cuchulainn]

Ich habe es schon rausgefunden. Trotzdem danke für deinen Tip. :)