29 de ago de 2011

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 Su


Fonte: https://groups.google.com/group/it-alt.comp.software.openoffice/browse_thread/thread/6cbfa3ef686aa5dc/57db616a20aac984?hl=it&pli=1#57db616a20aac984

Nenhum comentário:

Postar um comentário

Parafraseando do ditado "quem conta um conto aumenta um ponto", aqui "quem comenta um post, aumenta um ponto"!