LibreOffice - Supprimer toutes les images d'un document

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 ...)


29 décembre 2022 - Wakonda - LibreOffice, Visual Basic

Sources

Commentaires

Ajouter un commentaire

0 commentaires

Rechercher

Tags

Publicité

Suivez-nous

Aidez-nous !

Admin