It:rimuovere testo delimitato

From NeoWiki

---

Revision as of 14:54, 10 February 2007

NeoOffice ha delle potenti funzioni per il Cerca e Sostituisci, ma la rimozione di vari testi delimitati (ad esempio [testi tra parentesi quadre]) non può essere fatta con le funzioni di base.

Si può però ricorrere alle macro:

sub seekanddestroy4
dim seek
seek = thiscomponent.createReplaceDescriptor()
seek.SearchString = "\[[^\[\]]+\]"
seek.ReplaceString = ""
seek.SearchRegularExpression=True
thiscomponent.ReplaceAll(seek)
end sub

Questa macro cercherà qualunque testo tra parentesi quadre [come quelli che vengono messi come commenti durante l'elaborazione delle bozze] e sostituiti con una stringa vuota [cioè nessun carattere].

Questa macro è stata scritta da Fabrizio Venerandi (con un piccolo miglioramento inserito da Matteo Cavalleri) e suggerita in una discussione del NeoOffice forum