Convert text in clipboard to upper case

[Petr]

This macro converts plain text in clipboard to upper case.

Code: Select all

<#> Start of the macro
<cmds>

<#> Assign clipboard data to variable vClipboardText
<var_oper>(vClipboardText,"",GET_TEXT_FROM_CLIPBOARD,"","", "0")

<#> Are data text?
<if_str>("vClipboardText!=_vStrEmpty")

   <#> Convert data to uppercase
   <var_oper>(vClipboardText,"%vClipboardText%",STR_UPPER,"","", "0")

   <#> put data back to clipboard
   <clpput>("vClipboardText")

<else>

   <#> Clipboard is empty, or data are not text (picture...).
   <msg>(-100,-100,"No text data in clipboard.","Message",1)

<endif>

<#> End of the macro