|
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
|