2009-04-16 12 views

Antwort

6

Dies sollte es tun:

For Each o In ActiveDocument.InlineShapes  

    If o.OLEFormat.Object.Name = "update" Then 
     o.Delete 
    End If 

Next 
+0

Hatte das gleiche Problem und versuchte Ihren Code, gab mir eine "dieses Mitglied kann nicht auf einer horizontalen Linie zugegriffen werden" Fehler, keine Ahnung, was schief geht – TDsouza

1

denke ich, als Sie sagten, 'Button Namen' Sie 'Button Caption' ment; bitte versuchen Sie es unter Code -

For Each o In ActiveDocument.InlineShapes 
    If o.OLEFormat.Object.Caption = "update" Then 
     o.Delete 
    End If 
Next 

Grüße, Nilesh

PS: die Beschriftung Fall empfindlich ist, so dass Sie den Fall für Beschriftung überprüfen möchten.

+0

Das hat für mich gearbeitet !!! Vielen Dank... – panoet