OLE WordTabelle Bild einfügen; Seitenränder auf 0 Stellen

[burns4711]

Hallo zusammen,

ich versuche gerade via OLE automatisch ein Worddokument zu generieren das eine Tabelle enthält mit unsichtbaren Linien. Das funktioniert auch soweit sehr gut. Jetzt stellt sich mir die Frage wie ich ein Bild in eine der Zellen hineinbekomme, den Zellen eine feste Größe zuweisen kann und wie ich dem Dokument beibringe die Seitenränder auf 0 zu stellen.

Hintergrund des Ganzen ist, dass ich am Ende im Word dynamisch generierte Etiketten habe.

Vielleicht hat jemand der Delphiexperten sowas schonmal gemacht und kann mir ein paar hilfreiche Tipps geben?

Vielen Dank schonmal.

[mkinzler]

Lass dir die gewünschte Operationen mal als Makro aufzeichnen

[burns4711]

Vielen Dank für den Tipp nur ärgerlicherweise hält sich Word sehr bedeckt mit den Operationen die eigentlich von Belang sind.

Ein Bild bekomme bekomme ich allerdings nun hinein. Nur mit der Zellformatierung mit fester Höhe und Breite klappts noch nicht denn da spuckt er nur das hier aus:

ActiveWindow.Close
ActiveWindow.Close
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Columns.PreferredWidth = 198
If .Style <> "Tabellengitternetz" Then
.Style = "Tabellengitternetz"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
End Sub

Irgendeine Idee

[mkinzler]

Diesen Code müsste sich auf die OLE-Schnittstelle anpassen lassen

[burns4711]

Hallo,

nochmals Danke für die Hilfe. Ich habe alles hinbekommen und es funktioniert genau wie gewünscht bis auf eine Kleinigkeit.

Wie setze ich das hier

Selection.TypeText Text:="1." & vbTab & vbTab & vbTab & "Bla" & vbTab & _
vbTab & vbTab & "Bla2"

in Delphi um? Mir geht es nur um & vbTab, das wird von Delphi nicht geschluckt.

Vielen Dank nochmals.

[hoika]

Hallo,

& würde ich durch + ersetzen, das vbTab ist #9.
Text ist doch ein String oder ?


Heiko

[burns4711]

Jawohlja der #9 hatte mir gefehlt. Jetzt funktioniert die automatische Erstellung von Etiketten problemlos in beliebiger Anzahl.

Herzlichen Dank nochmals für die Hilfe.