Fr:Supprimer du texte délimité

From NeoWiki

---

Revision as of 12:50, 23 November 2006

NeoOffice a de puissantes fontions de recherche et remplacement, mais on ne peut pas supprimer différentes sections de texte placées entre des paires de signes typographiques (du texte [entre crochets], par exemple) en utilisant les fonctions de base.

Pour cela vous pouvez utiliser la macro suivante :

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

La macro recherchera toutes les sections de texte entre crochets [comme une suggestion de variante du texte] et les remplacera par une chaîne vide [pas de caractères].

Cette macro a été écrite par Fabrizio Venerandi (et un peu améliorée par by Matteo Cavalleri) et proposée sur les forums de NeoOffice