Thanks Thanks:  0
Likes Likes:  0
Results 1 to 6 of 6

Thread: Changing Uppercase to Lowercase (but not all the way)

  1. #1
    New Member
    Join Date
    Feb 2002
    Location
    Benicia, CA
    Posts
    31
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  2. #2
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    New Member
    Join Date
    Feb 2002
    Location
    Benicia, CA
    Posts
    31
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  4. #4
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.


    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


    HTH

  5. #5
    Board Regular
    Join Date
    Feb 2002
    Posts
    202
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  6. #6
    New Member
    Join Date
    Feb 2002
    Location
    Benicia, CA
    Posts
    31
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

    Greg

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •