Poner los bordes en una tabla con TWordApplication

[Mizosok]

Gracias AL,

Lo que no sé es como es el similar en Delphi de Selection.Tables(1).ApplyStyleHeadingRows=True por ejemplo,
Yo en mi código, pongo: ap.Selection.Tables.Item(1).ApplyStyleHeadingRows:=True
donde: ap:TWordApplication
y esa propiedad no se reconoce en Delphi,

Es posible que yo no esté poniéndo la propiedad donde realmente la lleva o esté poniendo algo mal...

Gracias AL, muy amable en volverme a responder.

Mizos

[[Al González]]

Empezado por Mizosok

[...] y esa propiedad no se reconoce en Delphi [...]

Exacto, Mizos, Delphi no la predefine. Cuando manejas objetos OLEVariant, es hasta ejecutar el programa cuando se buscan esas referencias de propiedades y métodos. ¿Genera algún error cuando lo ejecutas?

Saludos.

[Mizosok]

No, no es que genere error, el problema es que dentro de TWordApplication, no existen..., es decir cuando la trato de buscar (en delphi) no la encuentro...

De todas forma Al, volvi a editar la macro de Visual Basic en Word y solo deje esta instrucción...

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed

O sea, le quité las otras propiedades que vienen con el With,
y cuando ejecuto la nueva macro editada me genera la tabla con bordes,
como yo la quiero.....

Y cuando pongo la misma instrucción en delphi de la forma siguiente:

ap.ActiveDocument.Tables.Add( ap.Selection.Range, 3, 4,
DefaultTableBehavior, AutoFitBehavior );

ap es del tipo TWordApplication y

declaro:

DefaultTableBehavior y
AutoFitBehavior como Olevariant // Estas variables son de referencia

Delphi me muestra una tabla pero sin los bordes, entonces que pudiera ser?