[RESUELTO] Problema al generar una macro con la conf de pag.

[mtranier]

Hola, tengo el siguiente problema, cuando genero una macro con la grabadora (en Writer) registrando los pasos de una configuracion de pagina (legal, distintos margenes, etc) y despues la ejecuto, en vez de ejecutar la misma me abre el cuadro de dialogo de página con los valores anteriores (es decir sin cambios)

[RGB-es]

Disculpa la pregunta, pero ¿porqué quieres crear un estilo de página con una macro? ¿No sería más simple utilizar una plantilla donde el estilo en cuestión esté ya definido?
Por otra parte, si bien es posible crear estilos a través de macros no lo lograrás con la grabadora, ya que esta ha sido pensada para tareas más simples: ese tipo de macros hay que crearlas «a mano».

[mtranier]

Porque donde ingese usan open office pero muchos traen trabajos de sus casas en word y cuando los abren estan con margenes distintos o tipo de hoja distinto, etc. Por lo tanto al imprimir la impresora se traba. Entonces lo que yo pense es hacer una macho que les corrija (una vez abiertos los archivos) este tipo de problema. Si sabes como hacerlo te pido que me lo pases porque me ahorraria grandes dolores de cabeza. Gracias

[mauricio]

Hola...

Jamas he visto que una mala configuración de página trabe una impresora, reitero, yo no lo he visto. Aun y en el escenario que planteas, es mucho más sencillo que apliques un estilo de página que tengas predeterminado, tal como te lo comento Ricardo (RGB-es), si lo quieres hacer con macros, es sencillo pero considera que puede haber decenas de propiedades que tengas que modificar, la mayoría de los documentos usan el estilo de página predeterminado, este estilo es el que modificamos en la siguiente macro de ejemplo que tienes que adaptar a tus necesidades:

Código: Seleccionar todo

Option Explicit

Sub FormatoPagina1()
Dim oDoc As Object
Dim oEstilos As Object
Dim oEstilosPagina As Object
Dim oEstiloPredeterminado As Object

    'Accedemos al documento actual
    oDoc = ThisComponent
    'Accedemos a todos los estilos
    oEstilos = oDoc.getStyleFamilies()
    'Accedemos a los estilos de página
    oEstilosPagina = oEstilos.getByName("PageStyles")
    'Accedemos al estilo predeterminado
    oEstiloPredeterminado = oEstilosPagina.getByName( "Standard" )
    'Establecemos sus propiedades
    With oEstiloPredeterminado
        'Propiedades para el encabezado
        '.HeaderIsOn = True                'Activar encabezado
        '.HeaderIsDynamicHeight = True    'Ajuste dinamico de altura
        '.HeaderBodyDistance = 500        'Distancia al cuerpo del documento
        '.HeaderText.String = "Izquierda" & Chr(9) & "Centro" & Chr(9) & "Derecha"
       
        'Propiedades para el pie de página
        '.FooterIsOn = True   
        '.FooterIsDynamicHeight = True    'Ajuste dinamico de altura
        '.FooterBodyDistance = 500        'Distancia al cuerpo del documento
        '.FooterText.String = "Izquierda" & Chr(9) & "Centro" & Chr(9) & "Derecha"       
        
        'Propiedades de la página
        .Width = 21590 				'Ancho carta
		.Height = 27940				'Alto carta
		.TopMargin = 2000			'Margen superior
		.BottomMargin = 2000		'Margen inferior
		.LeftMargin = 1000			'Margen izquierdo
		.RightMargin = 1000			'Margen derecho
		.IsLandscape = False		'Orientación de la página ( True = Horizontal )
        
    End With
           
End Sub

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], de esta forma conseguiremos un foro más ordenado.

Saludos

[mtranier]

Ok, solo me faltaría ver como agregar a lo anterior la posibilidad de poner la propiedad REFLEJADO a la página (en FORMATO/PAGINA/PAGINA/DISEÑO DE PAGINA: REFLEJADO).
Otra preguntita, ¿donde puedo conseguir un tutorial para hacer lo anterior y aprenderlo?
Muchas Gracias. Mauricio

[mauricio]

Hola...

Con la propiedad PageStyleLayout de la siguiente manera.

Código: Seleccionar todo

oEstiloPredeterminado.PageStyleLayout = com.sun.star.style.PageStyleLayout.MIRRORED

Mi libro trata de la programación en Calc, pero gran parte del código y del conocimiento de el te puede servir para cualquier otra aplicación de OOo: http://user.services.openoffice.org/es/ ... =50&t=1545
De hecho, todo el código que te muestro de las páginas lo he copiado de el...

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], de esta forma conseguiremos un foro más ordenado.

Saludos

[mtranier]

Muchísimas gracias. Empezaré a leer su libro. Nuevamente agradecido.