04-28-2009, 06:59 AM
Macro
_s=
;Cu&t
;&Copy
;&Past
;-
;&Font…
;&Paragraph…
;Bullets and &Numbering…
;-
;&Hyperlink…
;>S&ynonyms
;(No Suggestions)
;-
;&Thesaurus…
;<
;Select text with Similar Formatting
;Tr&anslate
sel(PopupMenu(_s))
,case 1 out "1"
,case 2 out "2"
,case 3 out "3"
,case 4 out "4"
,case 5 out "5"
,case 6 out "6"
,case 7 out "7"
,case 8 out "8"
,case 9 out "9"
,case 10 out "10"
,case 11 out "11"
,case 12 out "12"
,case 13 out "13"
,case 14 out "14"
,case 15 out "15"