Pour supprimer toutes les images d'un document, on pourra utiliser la macro suivante :
Sub RemoveImages
Dim oDoc as Object
oDoc = ThisComponent
Dim oGraphics as Object
oGraphics = oDoc.getGraphicObjects()
Dim oImg as Object
For Each oImg in oGraphics
oDoc.getText().removeTextContent(oImg)
Next
End SubCette macro est à lancer directement depuis LibreOffice (Outils -> Macros -> Gérer les macros -> LibreOffice Basic ...)
Sources
Publicité
