Sub MAIN
WordLeft 1, 1
x$ = Selection$()
EditClear
On Error Goto TryAutoText
ToolsMacro .Name = x$, .Run, .Show = 0
Goto Finish
TryAutoText:
EditAutoText .Name = x$
Finish:
End Sub
®MDUL¯