Change case of selected text (Initial Caps -> Upper -> Lower -> Initial Caps)

Love the macro. Any way to maintain formatting in MS word? I'm using 2011.