Supprimer les sections d'un document odt avec Basic

[IOERROR]

Bonjour à tous! J’essaie depuis 2 semaines de faire une macro qui supprime les sections d’un fichier odt automatiquement. Pourquoi? J’utilise un document maître avec différents modules. Ce document, une fois terminé, est exporté en fichier odt. Mais là problème! Les modules sont transformés en sections et elles sont protégées. il faut donc les supprimer pour avoir un fichier odt simple et modifiable.
Merci pour votre aide.

[PYS]

Bonjour @IOERROR

Je déduis de la question qu’il faut supprimer les sections sans supprimer leur contenu :

Sub Main

dim oSections as object
dim nbSections as integer
dim i as integer


oSections =  ThisComponent.TextSections
nbSections = oSections.count

for i = nbSections - 1 to 0 step -1
	oSections.getByIndex(i).dispose
next i

End Sub

Cordialement

[IOERROR]

Impressionnant! C’est parfait! Cela fonctionne parfaitement!

[Lurdes]

Et si je veux aussi supprimer le contenu?