Intelligent Title Case

Did anyone figure out how to make this run on multiply selections at one time?

I forgot to mention that the Shift+F3 technique toggles through all caps, all lower case, capitalize each word. It does not have the Title Case option. I found that if I set a line to Capitalize Each Word, it then offers grammar corrections to change words like "From", "To", "The" to lower case, so it understands Title Case. I just can't seem to find the option to set that as a text option. So I can get by but it just frustrates me (argh).

Thanks Much!
jmg

Where is this magical "Format" button/menu/tab you speak of? I cannot find it in MS Word 2010.

Stacy
If (Len(sTest) = 4 Or Len(sTest) = 3 Or Len(sTest) = 2) And UCase(sTest) = sTest Then

Jennifer
It would only require minor modifications to make the macro work in PowerPoint or in Publisher.

Thanks So Much Ken. how would I change it if I had a four letter acro?

Replace the statement:
j = 2

with:

sTest = Trim(ww.Text)
If (Len(sTest) = 3 Or Len(sTest) = 2) And UCase(sTest) = sTest Then
j = Len(ww.Text) + 1
Else
j = 2
End If

This will not change two or three letter all uppercase acronyms.

so,, this message should be for ken Endicott. I am using his macro but it keeps changing all of my acronyms to lc.

How can this be altered to leave three lettered acronyms?

Is is AWESOME.
Now if someone could just make a macro like this for Powerpoint....

The following macro will give intelligent title case to the sentence and show as revisions only those characters that have changed.

Sub TitleCase2()
Dim lclist As String
Dim j As Integer
Dim k As Integer
Dim sTest As String
Dim ww As Range
Dim SentRange As Range
Dim HighlightRevisions As Boolean

' highlighting of revisions must be off
HighlightRevisions = ActiveDocument.ShowRevisions
ActiveDocument.ShowRevisions = False

' list of lowercase words, surrounded by spaces
lclist = " of the by to this is from a an or but and on in with under near upon at be are it "

Set SentRange = Selection.Range
For Each ww In SentRange.Words
j = 2
Do While j <= Len(ww.Text)
Call ChangeCharCase(ww, j, False)
j = j + 1
Loop
sTest = " " & LCase(Trim(ww.Text)) & " "
If InStr(lclist, sTest) = 0 Or ww.Start = SentRange.Start Then
Call ChangeCharCase(ww, 1, True)
Else
Call ChangeCharCase(ww, 1, False)
End If
Next ww
' restore highlighting of revisions
ActiveDocument.ShowRevisions = HighlightRevisions
End Sub

Sub ChangeCharCase(ww As Range, j As Integer, UPcase As Boolean)
Dim Ch As String
Dim Cc As String
Ch = Mid(ww, j, 1)
If UPcase Then
Cc = UCase(Ch)
Else
Cc = LCase(Ch)
End If
If Ch <> Cc Then
ww.Characters(j).Select
Selection.MoveRight Unit:=wdCharacter, Count:=-1
Selection.TypeText Cc
Selection.Delete Unit:=wdCharacter, Count:=1
End If
End Sub

I have a macro to give intelligent title case that will show changes as revisions. However the submission software will not allow me to post it.

The case change functions in Word do not show as revisions in Track Changes. When editing documents it is often desirable to show when capitalisation has changed.

This is great!

But line 6 needs a lot of additions, for this to be useful. I'm sure there are grammatical lists somewhere which could be referenced? In the mean time, I used

lclist = " of the by to this is from a an or but and on in with under near upon at be are is"

This is great - but is there a way to have this work when multiple (non-contiguous) lines of text are selected? I would like to use this as follows: select a heading, then use 'select text with similar formatting', then apply the macro. The macro does not presently apply to all selected lines under these circumstances.

I'd like to know if there's a way to apply this macro automatically to headings only.

Thanks for sharing this macro. I changed the word list to conform with Chicago Manual of Style rules. Works like a charm!

Just saying thanks -- saved me the trouble of hashing out this macro.
In response to Steve Dunham: OK, that's why each of us can write our own 'lclist' of words.

Actually, the standard rule is to capitalize all nouns, verbs, adjectives and adverbs, no matter what their length. "Is" is a verb and ought to be capitalized even though it's only two letters long.

To make it really intelligent, what about a language dependent version:
Sub TitleCase()
Dim lclist As String
Dim wrd As Integer
Dim sTest As String

' list of lowercase words, surrounded by spaces
' made language dependent
Select Case Selection.LanguageID
Case wdBelgianFrench, wdFrench
lclist = " le la les du de par à au aux pour "
Case wdBelgianDutch, wdDutch
lclist = " de het van voor dit deze die "
Case Else
lclist = " of the by to this is from a an for "
End Select

Selection.Range.Case = wdTitleWord

For wrd = 2 To Selection.Range.Words.Count
sTest = Trim(Selection.Range.Words(wrd))
sTest = " " & LCase(sTest) & " "
If InStr(lclist, sTest) Then
Selection.Range.Words(wrd).Case = wdLowerCase
End If
Next wrd
End Sub

I've looked for a Word command to replace the TitleCase function with this code, but I didn't find it.

Many thanks for your tips.

Although not the real point of the above Tip, one of the shortcuts I use the most in Word is to toggle between all Change Case options on selected text by pressing Shift+F3 repeatedly.