FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Modificar margenes en Word
Hola a tod@s,
Estoy intentando poder bajar los márgenes de un documento Word pero no encuentro la manera. Rebuscando, rebuscando, he encontrado lo siguiente: Código:
WinWord.Selection.PageSetup.TopMargin Cita:
¿Sabeís como hacerlo?, gracias.
__________________
Experiencia es el nombre que damos a nuestras equivocaciones |
#2
|
||||
|
||||
Creo que en lugar de Selection debe ser Section. A mi me ha funcionado con
Document.TopMargin ó Document.Sections.TopMargin Y si deseas aplicarlo a una sección específica sería Document.Sections.Item(NumSeccion).TopMargin Aquí Document es un OleVariant que apunta al documento:
// Saludos |
#3
|
||||
|
||||
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: Cita:
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.
__________________
Experiencia es el nombre que damos a nuestras equivocaciones |
#4
|
|||
|
|||
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 |
#5
|
||||
|
||||
Gracias por el tiempo dedicado, pero a la solución que me planteablas de
Cita:
Cita:
Un saludo.
__________________
Experiencia es el nombre que damos a nuestras equivocaciones |
|
|
|