Clean direct formatting script

Hi
Thanks to @bantoniof and @jucasaca , this little fragment of BASIC cleans some paragraph DF, but not all:

Sub LimpiaFormatoDirecto

 Call L10n.Cargar_Idioma
 Dim oCursor as Object : oCursor = ThisComponent.Text.createTextCursor()
   oCursor.gotoEnd(True) 
   oCursor.setAllPropertiesToDefault
   Msgbox (mensj(7),0+MB_ICONINFORMATION+0,)
   
End Sub

Two issues:

  1. Paragraphs inside frames are not cleaned (e.g. captions).

  2. It is important to add a comment to each modification made by the cleaning, for visual indication to the reviewer.

Olivier
PS. I’m gathering this and other scripts in an extension.