Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Nov 2002
    Location
    London, Gtr London, England
    Posts
    496
    Thanks
    8
    Thanked 0 Times in 0 Posts

    Toggle heading to all lower except inital letter (Word 2003)

    Dear loungers,

    has anyone got a routine to find all heading styles and convert to lower case except the first letter (yes I know it will change proper nouns!). The bit I'm stuck on is finding the constant for initial letter upper case only - I know there is all upper, all lower and initial letter in every word - is there one for initial letter of the selection? Or perhaps I need to do it the long way and go to the beginning of the selection select the next character and change to upper case?

    thank you...................... liz

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Toggle heading to all lower except inital letter (Word 2003)

    Does this do what you want?

    Sub Test()
    Dim par As Paragraph
    Application.ScreenUpdating = False
    For Each par In ActiveDocument.Paragraphs
    If Left(par.Style, 7) = "Heading" Then
    par.Range.Case = wdLowerCase
    par.Range.Characters(1).Case = wdUpperCase
    End If
    Next par
    Application.ScreenUpdating = True
    End Sub

  3. #3
    4 Star Lounger
    Join Date
    Nov 2002
    Location
    London, Gtr London, England
    Posts
    496
    Thanks
    8
    Thanked 0 Times in 0 Posts

    Re: Toggle heading to all lower except inital lett

    perfect!!

Posting Permissions

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