Modificar margenes en Word

[jzk]

Lo primero darte las gracias por el tiempo empleado.
He seguido todos los pasos que me indicas pero lo único que obtengo es otro tipo de error:

Exception EOleError with message 'Method' Topmargin' not supported by automation object'

Hasta ahora la única manera que he encontrado ha sido utilizando un objeto de la paleta Servers TWordApplication, pero claro esto me limita a que luego pueda utilizar comandos como :

WordAppl.WordBasic.EditBookmark
WordAppl.WordBasic.Insert

En fin, que por lo pronto en lugar de subir o bajar márgenes voy a conformarme con añadir o quitar renglones que no es tan eficaz como lo que realmente necesito pero me sirve de parche temporal.

[TONIAM]

En el programa que te comente que estoy haciendo en un informe bajo los margenes asi:

oWord.ActiveDocument.PageSetup.TopMargin := CentimetersToPoints(5);

oWord es un TWordAplication y la funcion es esta

function TFormPRL.CentimetersToPoints(a:Single):Single;
begin

{Converts a measurement from centimeters to points (1 cm = 28.35 points).
Returns the converted measurement as a Single.
Syntax
expression.CentimetersToPoints(Centimeters)
expression Optional. An expression that returns an Application object.
Centimeters Required Single. The centimeter value to be converted to points.}

Result:=28.35*a;

end;

Un saludo
Toni

[jzk]

Gracias por el tiempo dedicado, pero a la solución que me planteablas de

oWord es un TWordAplication

ya la había probado. De hecho lo comento en el correo anterior:

Hasta ahora la única manera que he encontrado ha sido utilizando un objeto de la paleta Servers TWordApplication, pero claro esto me limita a que luego pueda utilizar comandos como :

WordAppl.WordBasic.EditBookmark
WordAppl.WordBasic.Insert

Por lo que no puedo hace uso de ella.

Un saludo.