Changing Uppercase to Lowercase (but not all the way)

[greg0226]

I tried searching and could not find a macro to do this. I know how to change change words from uppercase to lowercase, but how do you keep the first letter of each word as an uppercase letter? I am pretty sure this is possible through a macro but don't really know how to go about. just in case my writing isn't too clear, example:

THIS IS A TEST

would change to:

This Is A Test

Thanks for any help.

Greg

 

[Mark O'Brien]

Look, I don't normally say this sort of thing, but "Remo Williams: Unarmed and Dangerous" is on TV and I'm 8 beers for the worse.

You don't need VBA for this. Just use the "Proper" function. i.e. type in cell A1 "mark is very cool" and then in cell B2 put in this formula:

=Proper(A1)

A truism will appear in cell B1.

If you really need a macro for this it shoul be fairly easy using this worksheet function.

Anyway, Chung is teaching Remo to breath.

HTH

 

[greg0226]

Thanks for the quick reply. The reason I was looking for a macro was because I actually need it for Word. I know it is horrible program but it is a long file so if you could help me out that would be great. Thanks.

Greg

 

[Mark O'Brien]

Oh dear, you're using Word. We hate Word. (j/k 8 beers for the worse now)

This works in Excel you should be able to use it in Word.

<pre>
Public Function ProperCase(ByVal sText As String) As String
Dim oExcel As Object

On Error GoTo ERR_PROPERCASE
Set oExcel = CreateObject("Excel.Application")
ProperCase = oExcel.WorksheetFunction.Proper(sText)

ERR_PROPERCASE:
Set oExcel = Nothing
End Function</pre>

HTH

 

[anno]

if you're using word, select the text and press F3 while holding down the shift key. this toggles through upper, proper and lower case every time you press.
This message was edited by anno on 2002-04-10 19:37

 

[greg0226]

Thank you for the answers. How do I use/run that function? Still really new at this stuff. Thanks again.

Greg