要实现目标：一键设置ppt文本框的格式。
现在的Bug：在不选中文本框的情况下，点击[Button_1, 标题一],会出错。
问题：怎么添加个判断，鼠标选中文本框才执行[Button_1, 标题一]，未选中文本框直接return。或者出现错误弹窗，按esc能推出也行。
以下是代码
#IfWinActive ahk_exe POWERPNT.EXE ;仅在ppt下可用
$`::
Gui, New, +AlwaysOnTop,
Gui Font, s14 Bold cBlack, 黑体
Gui, Add, Button, x60 y60 w125 h30 gButton_1, 标题一
Gui, Show, w400 h600, PPTxx
return
Button_1: ;标题1
ppt := ComObjActive(“PowerPoint.Application”)
ppt.ActiveWindow.Selection.TextRange.Font.Color.rgb:=(0,0,0) ;qq截图获取rgb；深红192, 0,0 黑0,0,0 白255,255,255
ppt.ActiveWindow.Selection.TextRange.Font.Size:=32
ppt.ActiveWindow.Selection.TextRange.Font.NameFarEast:=”黑体”
ppt.ActiveWindow.Selection.TextRange.Font.Bold:=1 ;1是加粗，0无
;ppt.ActiveWindow.Selection.TextRange.Font.Italic:=0 ;1是倾斜，0无
;ppt.ActiveWindow.Selection.TextRange.Font.Shadow:=0 ;1是有阴影，0无
ppt.CommandBars.ExecuteMso(“AlignLeft”) ;左对齐
Return
#If
