ase switching

This macro was contributed by David Little

I have a bad habit of hitting the CapsLock key and when I type code, the shift key does the opposite, so instead of typing m_bSomeVariable, I will look up and see that I have typed M_BsOMEvARIABLE. DevStudio provides and to lower and upper case a selection, but nothing provides a "SwapCase" function. The following macro will do the swap. I assigned it to , but that is entirely up to you ....

Sub SwapCase()

' DESCRIPTION: Macro to swap the case of selected words.

' David Little

' COADE, Inc.

' Houston, TX

' dlittle@coade.com

' 5OCT98

str = ActiveDocument.Selection.Text

str1 = ""

i = 1

Do While (i < Len(str)+1)

If (Mid(str, i, 1) = LCase(Mid(str, i, 1))) Then

str1 = str1 + UCase(Mid(str, i, 1))

Else

str1 = str1 + LCase(Mid(str, i, 1))

End If

i = i + 1

Loop

ActiveDocument.Selection.Text = str1

End Sub

Posted on: November 29, 1998.