Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi OLE word...tabellen (https://www.delphipraxis.net/94171-ole-word-tabellen.html)

netscanner 17. Jun 2007 15:34


OLE word...tabellen
 
Hallo Leute,
hab ein kleines Problem:

Ich lege über OLE eine Tabelle in einem word dokument an...funktioniert auch super.

Jetzt hab ich aber ein kleines problem...die tabelle wird mir ohne gitternetz angezeit und alle Spalten sind gleich groß :(

Wie bekomm ich es hin, dass ich den Spalten eine gewisse größe Zuweise und die eigenschaft gitternetz oder rahmen aktiviere?


gruß
martin

p.s. hoffe dass ich das richtige forum ausgewählt hab


EDIT: Das mit der Spaltenbreite hab ich hinbekommen - aber der rahmen ist noch ganz wichtig... :wall:

marabu 17. Jun 2007 16:17

Re: OLE word...tabellen
 
Hallo Martin,

was die Spaltenbreite betrifft, so musst du mal nach Table.Columns(1).SetWidth(...) Ausschau halten und die Gitterlinien sollten sich über Table.Borders.InsideLineStyle bzw. OutsideLineStyle steuern lassen. Bei Borders kann auch eine bestimmte Linie (z.B. wdBorderBottom) herausgegriffen werden, falls du genauere Einstellungen machen möchtest. Wegen der benötigten Enum-Werte musst du mal in deine Word-Referenz schauen.

Grüße vom marabu

netscanner 17. Jun 2007 16:23

Re: OLE word...tabellen
 
perfekt...danke!
geht wiefolgt:

Delphi-Quellcode:
Table.Borders.InsideLineStyle :=wdlinestylesingle
Delphi-Quellcode:
Table.Borders.outsideLineStyle :=wdlinestylesingle

Ykcim 23. Jun 2007 23:13

Re: OLE word...tabellen
 
Hallo,

ich wüsste gerne, wie Du die SPaltenbreite einer Wordtabelle, die aus Delphi heraus generiert wurde festgelegt, bzw geändert hast. :lol:

Danke

Keldorn 24. Jun 2007 15:10

Re: OLE word...tabellen
 
Hallo

hier ein Bsp aus einem meiner Projekte:

Delphi-Quellcode:
Var _RulerStyle:olevariant;
...
    _RulerStyle:=wdAdjustNone;
    WordApplication1.Selection.Tables.item(1).Columns.Item(2).SetWidth(WordApplication1.CentimetersToPoints(3), _RulerStyle);
Mfg Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz