Il 03/07/07, Guido Moretto <[EMAIL PROTECTED]> ha scritto:
>
> Buongiorno,
> vorrei scrivere una macro per writer che crei lo stile di pagina "BOZZA"
> partendo dallo STANDARD.
> Ho registrato le azioni con il registratore, ma in esecuzione :
> * Mi crea lo stile nuovo
> * apre lo stile in modifica ....
> ed ovviamente si blocca.
>
> Qualche anima nobile mi può gentilmente offrire un esempio di
> impostazione di stili di pagina?
> In particolare devo impostare lo sfondo con una immagine.
>
> Se a qualcuno interessa posso fornire la macro realizzata
> grazie
> Guido
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
Ciao Guido,
non so se hai già risolto il tuo problema, eventualmente prova questa macro,
che imposta sulla pagina corrente uno stile che ho chiamato "StileImmagine"
Sub Main
Dim StileFamilies as Object
Dim PageStyles as Object
Dim oViewCursor as
Dim oNewStyle as Object
oDoc = ThisComponent
oViewCursor = ThisComponent.CurrentController.getViewCursor()
'Crea un nuovo stile
oNewStyle = oDoc.createInstance("com.sun.star.style.PageStyle")
'Imposta l'immagine di sfondo, sostituire c:\temp\immagine.jpg con il
proprio path
oNewStyle.setPropertyValue ("BackGraphicURL",
convertToURL("C:\Temp\immagine.jpg"))
'Aggiunge il nostro nuovo stile fra gli stili pagina
oDoc.StyleFamilies.getByName("PageStyles").insertByName("StileImmagine",
oNewStyle)
'Imposta lo stile sulla pagina corrente
oViewCursor.setPropertyValue "PageDescName", "StileImmagine"
End Sub
Ciao
Maurizio
