Macro OpenOffice para formatar margem do documento
Sub Margins( )
Dim oDoc
Dim oPageStyles
Dim oStyle
Dim oViewCursor
Dim oPageStyleName
Dim fromleft%, fromtop%, fromright%, frombottom%
oDoc = ThisComponent
oViewCursor = oDoc.CurrentController.getViewCursor()
oPageStyleName = oViewCursor.PageStyleName
oPageStyles = oDoc.StyleFamilies.getByName("PageStyles")
oStyle = oPageStyles.getByName(oPageStyleName)
'fromleft, fromtop, fromright, frombottom = whatever you want
oStyle.LeftMargin = fromleft
oStyle.TopMargin = fromtop
oStyle.RightMargin = fromright
oStyle.BottomMargin = frombottom
End Sub
Dim oDoc
Dim oPageStyles
Dim oStyle
Dim oViewCursor
Dim oPageStyleName
Dim fromleft%, fromtop%, fromright%, frombottom%
oDoc = ThisComponent
oViewCursor = oDoc.CurrentController.getViewCursor()
oPageStyleName = oViewCursor.PageStyleName
oPageStyles = oDoc.StyleFamilies.getByName("PageStyles")
oStyle = oPageStyles.getByName(oPageStyleName)
'fromleft, fromtop, fromright, frombottom = whatever you want
oStyle.LeftMargin = fromleft
oStyle.TopMargin = fromtop
oStyle.RightMargin = fromright
oStyle.BottomMargin = frombottom
End Sub
Comentários
Postar um comentário
Parafraseando do ditado "quem conta um conto aumenta um ponto", aqui "quem comenta um post, aumenta um ponto"!