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'hui200
Hier2192
Cette semaine9596
Ce mois200
Total depuis 200413935061

5
visiteurs actuellement en ligne

1 juillet 2022