suchen und ersetzen

[koter]

Hallo Wild Thinng,

Das sollte mit einem Makro gehen:


Das Makro wiederholt den letzten Bearbeitungsschritt für jedes ausgewählte Objekt.
(Wie im Menü Bearbeiten/Wiederholen)

Code:

Sub WhAusw()
   Dim asr As ShapeRange
   Dim s As Shape
   Set asr = ActiveSelectionRange
   If asr.Shapes.Count > 1 Then
       Application.Optimization = True
       ActiveSelectionRange.Shapes.All.RemoveFromSelection
       For Each s In asr
           s.CreateSelection
           ActiveDocument.Repeat
       Next
       ActiveSelectionRange.Shapes.All.RemoveFromSelection
       Application.Optimization = False
       Application.Refresh
       asr.CreateSelection
   End If
End Sub

Gruß

Koter