[Résolu] [Writer] Supprimer tous les cadres

[Whiteneck]

Bonjour,

J'ai un document qui contient des images dans des cadres avec des légendes.
Je voudrais supprimer toutes les images, cadre et légendes.
J'ai fait ceci qui supprime les images, mais je me retrouve avec un cadre vide avec la légende.

Code : Tout sélectionner

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

Je dois dire que je ne sais pas comment faire.
Si une personne peut m'aider...
Merci d'avance

[Bidouille]

Bonjour,

Avec autant de messages à votre compteur...

Comment joindre un fichier au format ODF
Penser également à dépersonnaliser le fichier joint.

[Whiteneck]

Voici un doc type.

[jeanmi2403]

Bonjour,
Même chose que pour les images, mais il faut s'adresser aux TextFrames :

Code : Tout sélectionner

monDocument = ThisComponent
leTexte = monDocument.Text
lesCadres = monDocument.TextFrames
for x = 0 to lesCadres.Count -1
  unCadre = lesCadres(x)
  leTexte.removeTextContent(unCadre)
next x

Bonne journée,

[Dude]

Salut,

Pas besoin de récupérer le contenu du document, l'objet TextFrame a une méthode dispose :

Code : Tout sélectionner

Sub Main
	oDoc = ThisComponent
	oCadres = oDoc.getTextFrames
	If oCadres.hasByName("Cadre4") Then
    	oCadre = oCadres.getByName("Cadre4")
		oCadre.dispose()
	EndIf
End Sub

[Whiteneck]

Merci, mais je ne sais pas comment appliquer vos conseils dans mon cas.

[Dude]

Merci, mais je ne sais pas comment appliquer vos conseils dans mon cas.

Comment ça ?
As-tu exécuté ma macro sur ton document ? Elle supprime le cadre qu'il y a dedans.

[Whiteneck]

Oui, mais je veux supprimer tous les cadres d'un document qui en contient plusieurs.

[jeanmi2403]

Merci, mais je ne sais pas comment appliquer vos conseils dans mon cas.

Le code de Dude supprime le cadre (cadre4) qui se trouve dans ton exemple, par son nom.
Le mien supprime TOUS les cadres sans connaître leurs noms.
Evidemment, il faudra rajouter Sub et End Sub...
Bonne après midi,
PS : et tu drevrais mettre à jour ta version de LibreOffice, la dernière version stable est la 7.0.5

[jeanmi2403]

Oui, mais je veux supprimer tous les cadres d'un document qui en contient plusieurs.

Apparemment, tu ne lis pas tous les messages ! Reprends le fil depuis le début, la solution y est...

[Whiteneck]

Jeanmi,

Sur la ligne :

Code : Tout sélectionner

  unCadre = lesCadres(x)

il m'affiche l'erreur : "Valeur ou type de données incorrect(e).
Index hors de la plage définie."

[jeanmi2403]

Chez moi, ça fonctionne sur le document que tu nous a donné.
A plus

[Whiteneck]

Ce n'est pas grave, je vais faire manuellement.
Merci.

[Dude]

Oui, mais je veux supprimer tous les cadres d'un document qui en contient plusieurs.

Dans ce cas, pourquoi fournir un document avec un seul cadre ?

Hum, tu ne fais pas beaucoup d'effort.

Code : Tout sélectionner

Sub Main
	oDoc = ThisComponent
	oCadres = oDoc.getTextFrames
	for each oCadre in oCadres
		oCadre.dispose()
	next
End Sub

Et passe ton sujet à [Résolu]