Word VBA

crazzyapple · #1 11-07-2018, 10:24 PM

Hi;

I am using MS Word 2016 and I am trying to ignore a MsgBox, if the button is already deleted. This Sub is being called in another Sub. How the code is now, the message will always show. Any help will be greatly appreciated.

Code:

Sub DeleteButton()
Dim obj As Object
Dim varResponse As Variant

 varResponse = MsgBox("Button will be deleted.")
 
For Each obj In ActiveDocument.InlineShapes
 If varResponse = vbOK Then
    
  If obj.OLEFormat.Object.Name = "CommandButton1" Then
        obj.Delete
        
  End If
  End If
 Next
 
End Sub

gmayor · #2 11-07-2018, 11:11 PM

Move the message box to where you need to ask the question e.g.

Code:

Sub DeleteButton()
Dim obj As Object
Dim varResponse As Variant

    For Each obj In ActiveDocument.InlineShapes
        If obj.OLEFormat.Object.Name = "CommandButton1" Then
            varResponse = MsgBox("Button will be deleted.")
            If varResponse = vbOK Then obj.Delete
        End If
    Next
End Sub

crazzyapple · #3 11-08-2018, 12:06 AM

thank you gmayor

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem with Msgbox in VBA	Puzzled Programmer	Excel Programming	6	09-06-2018 04:34 PM
msgbox when deleting cells	Mikedk64	Excel Programming	11	07-13-2017 07:14 AM
What happend to Ignore once (spell check) in Word 2013?	nick93	Word	2	07-05-2016 01:44 PM
How to make word ignore a specific shape when printing?	ZAK	Word	12	04-07-2014 03:14 PM
Make MsgBox appear...	Jamtart	PowerPoint	3	09-01-2012 08:21 AM