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
Articles récents
- "error:0308010C:digital envelope routines::unsupported"
- JS - Cacher tous les éléments d'une classe spécifique
- Démarrer et arrêter PostGreSQL en ligne de commande
- Docker - Supprimer les images inutilisées
- MySQL - Récupérer toutes les clés étrangères d'une colonne
- Supprimer un fichier d'un référentiel Git sans le supprimer du système de fichiers local
- Arnaque au chantage et site web prétendument piraté
- Ruby - Décoder une chaîne en base 64 et écrire le résultat dans un fichier
- Linux - Supprimer un dossier et tous ses fichiers
- LibreOffice - Supprimer toutes les images d'un document