[办公]word中快速插入打勾复选框和空白复选框

打勾复选框经常用到，但是很多人找不到在哪里，使用本代码可一键插入：
`+d：打勾复选框；
`+k：空白复选框

` & d::
打钩复选框:
wd:=ComObjActive("word.application")
wd.ScreenUpdating:=0
en:=wd.selection.start
wd.Selection.InsertAfter("00FE")
;~ wd.ActiveDocument.Range(en-4, en).Select 
wd.Selection.Font.NameAscii:="TimesNewRoman"
Send !x
wd.Selection.Font.NameAscii:="Wingdings"
wd.Selection.Font.NameOther:="Wingdings"
wd.ScreenUpdating:=1
return
` & k::
空白复选框:
wd:=ComObjActive("word.application")
wd.ScreenUpdating:=0
en:=wd.selection.start
wd.Selection.InsertAfter("00A8")
wd.Selection.Font.NameAscii:="TimesNewRoman"
Send !x
wd.Selection.Font.NameAscii:="Wingdings"
wd.Selection.Font.NameOther:="Wingdings"
wd.ScreenUpdating:=1
return