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