A macro can fix most of these errors, although you will need to check prepositions that need initial capitals because they are part of a verb. Example 8-8 shows the macro.
If you're familiar with VBA, you'll probably find the extended
Or condition cumbersomenot to mention a lot of typing. You can make the code more compact by using a
Select Case statement instead of the if statement, using
Case "a", "above", "after", "an", and so on.
The code in the macro is fairly straightforward:
In the first group of statements, the macro declares two variables: a String variable named
strLand an Integer variable named
In the second group of statements, the macro selects the appropriate paragraph. The first statement compares the selection type to
wdInsertionPointthe "selection" being a point in the text rather than an actual selection of characters or other objects. If the selection is not an insertion point, the macro collapses the selection to an insertion point. The second statement selects the first paragraph of the (collapsed) selectionin other words, the paragraph in which the insertion point is located. Selecting the paragraph also selects the paragraph mark at its end, and this paragraph mark counts as a "word." So, to work with only the real words, the third statement shortens the selection by one character to the left, deselecting the paragraph mark.
The third group of statements applies title case (first letter capitalized) to the first and last words in the selection, because the first and last words in a heading must always be capitalized even if they're short prepositions or conjunctions.
The fourth group of statements uses a
For... Nextloop to check each of the remaining words in the selection against a list of short prepositions and conjunctions. (Adjust this list to meet your company's style demands.) The loop runs from
2(the second word) to
Selection.Words.Count - 1, or the number of words in the paragraph minus 1 (so as not to affect the last word, to which title case has already been applied). The second statement assigns to
strLthe lowercase (
LCase) version of the currently selected word, with any leading or trailing spaces trimmed off it (when you double-click to select a word, VBA includes any spaces after the word). Using the lowercase version of the word is necessary because the comparison is case-sensitive. The
Ifstatement then compares
strLto the list of prepositions and conjunctions. If there's a match, Word applies lowercase to the word; if not, the
Elsestatement applies title case to the word.
Selection.Collapsestatement collapses the selection to its end, which is equivalent to pressing » to deselect a selection.
Macro to apply proper capitalization to a title
Sub Apply_Proper_Capitalization() 'applies proper capitalization to the first paragraph in the selection Dim strL As String Dim i As Integer If Selection.Type <> wdSelectionIP Then Selection.Collapse Selection.Paragraphs(1).Range.Select Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Words(1).Case = wdTitleWord Selection.Words(Selection.Words.Count).Case = wdTitleWord For i = 2 To Selection.Words.Count - 1 strL = LCase(Trim(Selection.Words(i))) If strL = "a" Or strL = "above" Or strL = "after" Or strL = "an" Or _ strL = "and" Or strL = "as" Or strL = "at" Or strL = "below" Or _ strL = "but" Or strL = "by" Or strL = "down" Or strL = "for" Or _ strL = "from" Or strL = "in" Or strL = "into" Or strL = "of" Or _ strL = "off" Or strL = "on" Or strL = "onto" Or strL = "or" Or _ strL = "out" Or strL = "over" Or strL = "the" Or strL = "to" Or _ strL = "under" Or strL = "up" Or strL = "with" Then Selection.Words(i).Case = wdLowerCase Else Selection.Words(i).Case = wdTitleWord End If Next i Selection.Collapse Direction:=wdEnd End Sub
This macro isn't perfect, as it ignores the possibility of periods or other punctuation requiring prepositions or conjunctions to be title case in the middle of a paragraph. You might adapt the macro to take care of this need. You might also add a list of uppercase terms (for example, XP) or intercapitalized terms (for example, iPod) that require special treatment.