Accueil - Visual Basic

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 Sub

Cette macro est à lancer directement depuis LibreOffice (Outils -> Macros -> Gérer les macros -> LibreOffice Basic ...)