RW.com Windows Writer Pain Relief (RWWWPR)

HotKeySet("µ", SendCodeTag) ;Replace µ with the key you want replaced by a single `
HotKeySet("ù", SendEmHyphen) ;Replace ù with the key you want replaced by a — (em hyphen)

While 1
    Sleep(100)
WEnd

Func SendCodeTag()
    Send("``")
    Send("{BACKSPACE}")
EndFunc

Func SendEmHyphen()
    Send("—")
EndFunc