Marco Caresia ha scritto:
Guido (email.it) wrote:
Qualcuno sa indirizzarmi verso l'area dei metodi/servizi/proprietà da
esplorare?
Pensavo si potesse fare facilmente impostando la proprietà ReadOnly a True
con il metodo StoreAsURL, ma non sembra funzionare.
La macro seguente va a lavorare direttamente sul file e lo imposta in sola
lettura (non è esattamente quello che volevi tu...)
sub SolaLettura
oDoc = ThisComponent
document = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
file = createUnoService("com.sun.star.ucb.SimpleFileAccess")
sURL = oDoc.URL
file.setReadOnly(sURL, True)
dispatcher.executeDispatch(document, ".uno:Reload", "", 0, Array())
end sub
grazie dell' aiuto, mi va benissimo la macro da associare ad una
sequenza di tasti.
Guido M
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
