Guido (email.it) ha scritto:
[...]
> Cose da non credere...
> Il comando oCell.CellStyle = "Default"
> Resetta tutti gli stili forzati manualmente e imposta lo stlile
> "Standard" SOLO SUL TUO FOGLIO ...
>
> su fogli nuovi riporta lo stile a "Standard" ma non ha effetto sulla
> formattazione manuale. (uso wXP OOo 2.4.0)
> Ipotizzo che il tuo foglio contenga qualche magia... Forse deriva da
> conversioni xls a odf?
> Servirebbe un chiarimento del grande PM, ma forse è già in ferie!
:-)
No, non sono in ferie, vi sto seguendo ma purtroppo non ho nulla di
utile da dire ;-(
Non so qual'è la causa di questi comportamenti incoerenti, presumo si
tratti di un bug, tra l'altro particolarmente subdolo e difficile da
riprodurre e da spiegare su IssueZilla
Posso suggerire forse un idea per un approccio alternativo.
Dunque, se ho capito bene il problema iniziale era quello di rimuovere
quello che viene definito come Hard-formatting, ovvero la formattazione
applicata direttamente senza curarsi degli stili.
Per fare questo si può sfruttare una feature che riguarda in generale
tutte i servizi UNO che espongono delle proprietà, ovvero supportano
l'interfaccia XPropertySet
L'esempio che segue fa proprio questo, ovvero riporta tutte le proprietà
di formattazione al default (ovvero al valore definito nello stile
applicato)
Con qualche piccola modifica si può adattare per writer.
Ovviamente si tratta di un esempio veloce e in un contesto di produzione
bisognerebbe perlomeno controllare che la selezione sia un oggetto valido.
a proposito: declino qualunque responsabilità!!
ciao
Paolo M
REM ***** BASIC *****
Sub RemoveHardFormatting
oRng = thiscomponent.CurrentSelection
oPropSetInfo = oRng.getPropertySetInfo()
mProps() = oPropSetInfo.getProperties()
For Each oProp In mProps()
iReadOnly = com.sun.star.beans.PropertyAttribute.READONLY
iTest = iReadOnly AND oProp.Attributes
If oProp.Name <> "CellStyle" Then
If iTest <> iReadOnly Then
oRng.setPropertyToDefault(oProp.Name)
End If
End If
Next
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
