Comment supprimer tous les cadres d'un document obtenus à la suite d'un scan avec un logiciel d'OCR ?

Détails
Catégorie parente: Word
Catégorie : Mise en forme
Affichages : 17000

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