MS Word Equation Shortucts

HotKeySet("{ESC}", "Terminate")
Func Terminate()
   Exit
EndFunc

HotKeySet("^/", "frac")
HotKeySet("^'", "pow")
Func frac()
   Send("{LALT}")
   Sleep(10)
   Send("je")
   Sleep(10)
   Send("f")
   Sleep(10)
   Send("{ENTER}")
EndFunc
Func pow()
   Send("{LALT}")
   Sleep(10)
   Send("je")
   Sleep(10)
   Send("s")
   Sleep(10)
   Send("{ENTER}")
EndFunc

While 1
   Sleep(1)
WEnd