user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

Pas d'autres solution que de faire une petite macro mais qui risque d'être violente s'il y a autre chose que des boites de texte ! Donc méfiance... faites une sauvegarde avant.

 

Public Sub SupprimeBoiteTexte()
'Macro écrite par Geo
Dim Boite As Shape
For Each Boite In ActiveDocument.Shapes
Boite.Select
Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.ShapeRange.Select
Selection.ShapeRange.Delete
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory
Selection.Paste
Next
End Sub

 

Statistiques

Aujourd'hui183
Hier2243
Cette semaine9502
Ce mois52162
Total depuis 200413083089

4
visiteurs actuellement en ligne

25 juin 2021