Excel中部分文字下标的快捷键如何设置？

如H2O中，只让2为下标如何定义一个快捷键。
f4::
{
excel := ComObjActive(“Excel.Application”)
excel.Selection.Font.Superscript = True
excel := “”
return
}
这个好像不可以。