vba löschen mehrerer CommandButten

[svensxx]

Ich habe eine Lösung gefunden. Für alle die das selbe Problem haben hier das Script:

für Command Butten VOR oder HINTER dem Text:

Sub Butten_Delete_Click()
'
Dim IShp As Shape
'
' Loschen Butten ButtenDeltele
'
For Each IShp In ActiveDocument.Shapes
    If IShp.OLEFormat.Object.Name = "Butten_Delete" Then
      IShp.Delete
      Exit For
    End If
Next
'
End Sub

für Command Butten im Text:

Sub Butten_Delete_Click()
'
Dim IShp As InlineShape
'
' Loschen Butten ButtenDeltele
'
For Each IShp In ActiveDocument.InlineShapes
    If IShp.OLEFormat.Object.Name = "Butten_Delete" Then
      IShp.Delete
      Exit For
    End If
Next
'
End Sub

Wenn ich einigen auf den Schlips getreten bin mit meiner Frage, bitte ich nachträglich um Entschuldigung...

VG
Sven