[RESUELTO] Comprobar esta macro

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
honovan
Mensajes: 18
Registrado: Lun Oct 27, 2014 2:57 am

[RESUELTO] Comprobar esta macro

Mensaje por honovan »

buenos días...
Agradezco por este sitio tan importante para los recién llegados a este mundo linux y el software libre.

deseo saber si a ustedes les da el mismo error que a mi...

es una macro en write para dar formato a las hojas pero me sale error, y me gustaria saber cual sera el problema y que debera hacer porque estoy desubicado, de antemano muchas gracias.

Código: Seleccionar todo

Sub FormatoPagina(cmAncho as single, cmAlto as single, _
    cmMargenIzq as single, cmMargenDer as single, _
    cmMargenSup as single, cmMargenInf as single, _
    lOrientacionApaisada as boolean, _
    cDisenyoPagina as string )
'--------------------------------------------------------------------------------------------    
  ' cDisenyoPagina puede ser DI para derecha, izquierda
  ' R para reflejado, D para derecha, I para izquierda 
 
  Dim oStyleFamilies, oFamilies, oPageStyles, oStyle
  Dim oVCurs, oPageStyleName
  Dim oDoc
 
  oDoc = ThisComponent
  oVCurs = oDoc.CurrentController.getViewCursor() 
  oPageStyleName = oVCurs.PageStyleName
  oPageStyles = oDoc.StyleFamilies.getByName("PageStyles")
  oStyle  = oPageStyles.getByName(oPageStyleName)
 
  With oStyle
    .Width = cmAncho*1000
    .Height = cmAlto*1000 
    .LeftMargin = cmMargenIzq*1000
    .TopMargin = cmMargenSup *1000
    .RightMargin = cmMargenDer*1000
    .BottomMargin = cmMargenInf*1000
    .IsLandscape = lOrientacionApaisada
 
    select case uCase(cDisenyoPagina)
    case "DI"
        .PageStyleLayout = com.sun.star.style.PageStyleLayout.ALL
    case "R"
        .PageStyleLayout = com.sun.star.style.PageStyleLayout.MIRRORED
    case "I"
        .PageStyleLayout = com.sun.star.style.PageStyleLayout.LEFT
    case "D"
        .PageStyleLayout = com.sun.star.style.PageStyleLayout.RIGHT
    end select      
  End With
 
End Sub
Última edición por SLV-es el Jue Ene 21, 2016 12:20 pm, editado 2 veces en total.
Razón: Marcado como [RESUELTO] pues el tema ha sido resuelto según se deduce por los comentarios del usuario
OpenOffice 3.0 en Ubuntu 12
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: comprobar esta macro

Mensaje por mauricio »

Siempre es importante mostrar el mensaje de error, obtendrás mejores respuestas...

¿Como estas llamando (ejecutando) a esta subrutina?, a mi me funciona sin errores...

Código: Seleccionar todo

Sub Test()

	Call FormatoPagina(21, 27, 1, 2, 1.5, 2, True, "")

End Sub
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
SLV-es
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España
Contactar:

Re: comprobar esta macro

Mensaje por SLV-es »

En la página desde la que se ha extraído está la explicación y un ejemplo de uso.

http://blog.open-office.es/basic/macro- ... ice-writer

Coincido con Mauricio, mejor si nos muestras una captura de pantalla con el error. En la mayoría de los sistemas operativos, pulsar las teclas Alt+Imp Pant captura la ventana que está activa (la del error) y la copia a la memoria, para que la pegues en un procesador de textos o en un programa de imágenes, y poder enviarnosla.
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
honovan
Mensajes: 18
Registrado: Lun Oct 27, 2014 2:57 am

Re: comprobar esta macro

Mensaje por honovan »

Mauricio y SLV-es ... gracias por contestar.

la cosa es que estoy muy apenado con ustedes pues la respuesta de los dos era acertada me comí la llamada de la función del main y ya había estado averiguando por el error de llamado a una función o un parámetro que no existía , y si estaba en lo correcto de que era una llamada a la función pero no me fije en el ejemplo de la cual la saque que es la misma dirección que me colocaron. pido mil disculpas por este himpase .

la verdad estaba buscando esta macro desde hace tiempos para unos proyecticos que tengo y decirles también que hasta hoy he podido entender algo de como se encuentran los métodos y propiedades de uno en la wiki api libreoffice para crear los servicios y todo eso me tenia desubicado, la verdad estoy empezando en LOB ya en Microsoft basic aplicaciones pero esto es un tanto enredada al principio pero muy agradable.

nuevamente mil disculpas. y muchas gracias por contestar tan oportunamente.
OpenOffice 3.0 en Ubuntu 12
Responder