Автоматически нажать на кнопку "Ok" - VBA

Формулировка задачи:

Добрый день всем форумчанам. Недавно создавал тему насчёт написания макроса на разгруппирование. После долгих мук ответ оказался настолько простым что даже стыдно его называть. Но я обычный работяга с завода и язык программирования для меня примерно как язык африканских индусов древних племён. Осталось единственное что я хотел бы добавить и тут мне нужна ваша помощь. Есть ли конкретная команда на кнопку "ОК" в всплывающих диалоговых окнах? Дело в том что после разгруппирования всплывает окно, цитирую "в результате выполнения данного действия связь между объектом и его образцом будет разорвана". Меня это собственно никак не смущает,просто охота чтобы на этот же макрос была команда которая сразу отвечала ок. Люди добрые помогите советом. П.Сы. Сорян что много лишней воды в тексте и слабые познания,все начинается с малого

Решение задачи: «Автоматически нажать на кнопку "Ok"»

textual
                            Листинг программы 
                        

                            Sub Macro2()
'
' Г°Г*Г§ГЈГ°
'
' Г‘Г®Г·ГҐГІГ*Г*ГЁГҐ ГЄГ«Г*ГўГЁГё: Ctrl+q
'
 
    'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140
 
    
    ActiveWindow.Selection.Ungroup
    
 
    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices
 
End Sub
                        