Changing Text Case

When editing a document with Track Changes on, changing case using Shift + F3 does not raise a Track Change entry. Furthermore manually changing a character in a word marks the the entire word as changed and it is not obvious which character has changed. What is desirable is to mark just the character that has been changed.

The macro TitleCase below will select a whole sentence and make the first letter of each word upper case if not already upper case and mark only the changed character in Track Changes. Similar macros can be used to give title, upper and lower cases.

Sub TitleCase()
Dim txt As Range
Dim ww As Range
Dim cs As String
Dim cr As Range
Dim j As Long
Dim testWrd As String
Dim ExcludeWrd
ExcludeWrd = Array("this", "at", "that", "and", "with", "by", "to", "the", "for", _
"as", "of", "from", "or", "in", "a", "an", "on", " ")
Set txt = Selection.Range.Sentences(1)
For Each ww In txt.Words
testWrd = Trim(ww.Text)
For j = 0 To UBound(ExcludeWrd)
If ExcludeWrd(j) = testWrd Then GoTo nxtww
Next j
cs = Left(ww.Text, 1)
If cs >= "a" And cs <= "z" Then
Set cr = ww.Duplicate
cr.End = cr.Start
cr.Select
Selection.TypeText UCase(cs)
Selection.Delete Unit:=wdCharacter, Count:=1
End If
nxtww:
Next ww
End Sub

@Barry:
Behaviour of Shift+F3 cycling through cases sometimes varies, depending on what is selected. What you observed usually happens when the selected text contains end-of-sentence punctuation (period, exclamation mark, or question mark) followed by white space (space, tab, paragraph mark, etc). In such situation the cycling is: (selected text)->ALL CAPS -> all lowercase -> Sentence case -> ALL CAPS ...
The sentence case capitalizes the first letter of of the first word in the selection only if it is the first word in a sentence. If you select test starting in the middle of a sentence, the first selected letter will remain lowercase, but first letters of the following sentences selected will be capitalized.

The cycling sequence described in the tip happens when the selected text does not include end-of-sentence punctuation followed by white space. Interestingly, decimal numbers (no space directly after decimal point) or text like URL addresses, do not trigger the behaviour you observed. On the other hand, some abbreviations (for example Dr. No) may do just that.

Using Change Case tool described in the tip gives you more control, but even then you may get weird results like: vIDEO pROVIDES a pOWERFUL wAY tO hELP yOU pROVE yOUR pOINT.

Hi. It is a very rare event that I find any sort of error/mis-guidance in Word.Tips. However I think I am right with the following observation:
you say...
...cycle through three different case scenarios: ALL CAPS, all lowercase, and All Title Case. From my limited experience I think the All Title Case should be All sentence case (only capitalizes the first character of each sentence. Not the first character of each word).

Great tip. My question is with Title Case. Generally, short words like "the," "and," "or," etc. in a title are not capitalized. Is there a way to quickly change the case in a title while keeping those short words in lowercase? Perhaps a macro can do this?

Tomek, I think only with a macro, which is easy (ish) to program, but a little tricky (e.g., some words are not capitalized, but they at the beginning of a title. Is the selection at the beginning of the "title"? And sometimes these words are still capitalized, e.g., after punctuation (e.g., a colon in a title). And then there's the matter of deciding on which words are not to be capitalized. So I still do what I presume you do - I use the Word function to capitalize all of the words, and then I adjust on the fly.

Is there a way to get the true
Title Case with Some of the Words not Capitalized?