Delete 1 of Multiple Command Buttons (Word)

[RP1America]

I have a Word document with multiple command buttons. One command button (cmdIntroduction) in particular initiates a user form. When the user selects Submit on the user form, the folling code runs:

For Each obj In ActiveDocument.InlineShapes
    If obj.OLEFormat.Object.Name = "cmdIntroduction" Then
    obj.Delete
   End If
Next

...hence deleting the cmdIntroduction command button as intended. However, once this is accomplished, none of my other command buttons on the document now work. What am I missing?

Thanks!

 

[SkipVought]

hi,

Personally I would not delete the object. Rather make it disabled or even invisible.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RP1America]

Sounds like an adequate solution. However, I am not realizing what the code should be in order to accomplish this. Tried updating to obj.Visible = False, but did not do the trick. :\

 

[SkipVought]

but did not do the trick

Exactly what does that mean, from the spectrum of possible interpretations.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RP1America]

It did not make it invisible.

Run-time error 438: Object doesn't support this property or method.

 

[SkipVought]

would this work???

dim i as integer
For for i = ActiveDocument.InlineShapes.Count to 1 step -1
   with ActiveDocument.InlineShapes(i)
     If .OLEFormat.Object.Name = "cmdIntroduction" Then
       .Delete
       exit for
     End If
   end with
Next

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RP1America]

Produces the same result as my original issue. Once this code is run, the intended object deletes, however all other command buttons on the document seem to change to a disabled state - click on them, nothing happens.

 

[SkipVought]

What happens if you change each inlineshape object to a shape object?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RP1America]

Nothing happened. Did not delete object.

 

[SkipVought]

well, of course you need to CHANGE the type of object in your code to a Shape and the Shapes collection.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RP1America]

The original code I have posted, was found on the internet. I honestly don't know what the difference between an inline shape and a shape is and am unable to find it defined. Therefore, I don't know that what I have posted is even the correct start for what I need to do. Had I not posted the code I have found, would you have suggested something similar, or perhaps, is there a simpler way to approach?

 

[SkipVought]

What are you trying to achieve? Please don't give me how you think it ought to be done. Tell me FUNCTIONALLY what you need to do.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[macropod]

The following works fine for me:

Sub Test()
Dim IShp As InlineShape
For Each IShp In ActiveDocument.InlineShapes
     If IShp.OLEFormat.Object.Name = "cmdIntroduction" Then
       IShp.Delete
       Exit For
     End If
Next
End Sub

After calling the above from the ActiveX control concerned (or from a different one), other ActiveX controls in the document continue to work.

Cheers
Paul Edstein
[MS MVP - Word]

 

[RP1America]

After a little more trouble-shooting, I have found that the issue seems to have to do with the document being a template (dotm). When testing the buttons from within the template, they work properly. However, when an iteration of that template is created (Document1.doc), the command button deletes, yet the other controls cease to work.

 

[macropod]

In that case, there's probably an error in your coding for the other controls (eg they refer to 'ThisDocument' instead of 'ActiveDocument').

Cheers
Paul Edstein
[MS MVP - Word]