Selection.ToggleCharacterCode (Word)

Alterna uma seleção entre caracteres Unicode e seu valor hexadecimal correspondente.

Sub ToggleCharCase() 
 Selection.TypeText Text:="20ac" 
 Selection.ToggleCharacterCode 
End Sub