Macros : Upper case -> Lower case -> Capitalized case

Introduction

This is a simple macro but can be quite useful at times.

How to use it

1. Select some text
2. Press assigned macro key , change selection case to upper case
3. Press assigned macro key one more , change upper case to lower case
4. Press assigned macro key one more, change lower case to capitalized case
5. Press assigned macro key one more, change capitalized case to upper case

Below this line is the entire flow of the macro

• Selected case ->
• Upper case ->
• Lower case ->
• Capitalized Case ->
• Upper Case

Code Listing

Sub MakeCaseUpperLower()
Dim doc
set doc = ActiveDocument 

' Be sure active document is a text document
if doc Is Nothing Then
Exit Sub
elseif doc.Type <> "Text" Then
Exit Sub
End If 

strSelected = doc.Selection
strNewUCase = ""
strNewLCase = ""

strNewUCase = UCase(strSelected)
strNewLCase = LCase(strSelected)
' Upper case -> Lower case
if( strNewUCase = strSelected ) then
doc.Selection = LCase(strSelected)
' Lower case -> Capitalized Case
elseif strNewLCase = strSelected Then
doc.Selection = Left(strNewUCase,1) + Right(strNewLCase, Len(strNewLCase)-1)
' Capitalized Case
else
doc.Selection = strNewUCase
End if
End Sub 

Conclusion

It's some very simple code. Please write your comments. Thank you.