I have the following macro, which checks each paragraph for specific heading styles, and follows capitalization rules I set. When checking for capitalization in the heading styles, I've tried various ways to check for hyphens and parentheses but I can't get it to capitalize the second word following the hyphen or a word following a parenthesis (e.g., High-profile won't cap "profile" and Table 4 (continued) won't cap "continued") because it's not recognizing it as a different word separated by a space.

What am I missing here? I've highlighted the section of the code below that's currently not working. Thanks so much for the help.

Sub CapitalizeHeading()

Dim para As Paragraph
Dim paraRange As Range
Dim excludedWords As Variant
Dim headingWords() As String
Dim I As Integer
Dim j As Integer
Dim k As Integer
Dim wordFound As Boolean
Dim totalPara As Integer
Dim originalStyle As String
Dim originalUserTrackedRevisions As Boolean

'List of word to be excluded from capitalization
excludedWords = Split("a, above, across, against, along, among, an, and, around, as, at, because, before, behind, below, beneath, beside, between, beyond, but, by, down, during, for, from, in, into, nor, of, off, on, onto, or, over, per, since, so, the, through, to, toward, under, unless, with, within, without, yet", ", ")

'Turn off screen updating for efficiency
Application.ScreenUpdating = False

'Store user's track changes status
originalUserTrackedRevisions = ActiveDocument.TrackRevisions

'Turn on tracked changes


ActiveDocument.TrackRevisions = True

totalPara = ActiveDocument.Paragraphs.Count

For k = 1 To totalPara
Set para = ActiveDocument.Paragraphs(k)

Set paraRange = para.Range
paraRange.MoveEnd unit:=wdCharacter, Count:=-1 ' Exclude the paragraph mark

originalStyle = para.Style ' Storing original style

Application.StatusBar = "Processing paragraph " & k & " of " & totalPara

If para.Style = "Heading 1" _
Or para.Style = "Heading 2" _
Or para.Style = "Heading 3" _
Or para.Style = "Report Title" _
Or para.Style = "Report Subtitle" _
Or para.Style = "Figure/Table Title" Then

Dim originalWords As String
originalWords = paraRange.text 'Store original paragraph text to compare to changed text

headingWords = Split(paraRange.text, " ")

For I = LBound(headingWords) To UBound(headingWords)
wordFound = False

Dim result As String
result = "" ' Clear result for each new word

Dim makeUpper As Boolean
makeUpper = True ' Start with True to capitalize the first letter

Dim currentWord As String 'To monitor when tracked changes should be used
currentWord = headingWords(I)

' Check if the word should be excluded from capitalization
For j = LBound(excludedWords) To UBound(excludedWords)
If LCase(headingWords(I)) = LCase(excludedWords(j)) Then
wordFound = True
Exit For
End If
Next j

' Handle first and last words, or words with multiple capital letters
If I = LBound(headingWords) Or I = UBound(headingWords) Then
If Not headingWords(I) = UCase(headingWords(I)) And Not headingWords(I) = LCase(headingWords(I)) Then
headingWords(I) = headingWords(I) ' Keep as is
ElseIf headingWords(I) = UCase(headingWords(I)) Then
headingWords(I) = headingWords(I) ' Keep as is if acronym
Else
' Special word handling
For j = 1 To Len(headingWords(I))
Dim ch As String
ch = Mid(headingWords(I), j, 1)

If makeUpper Then
ch = UCase(ch)
makeUpper = False
Else
ch = LCase(ch)
End If

If ch = "-" Or ch = "(" Then makeUpper = True

result = result & ch
Next j
headingWords(I) = result
End If
ElseIf Not wordFound Then
headingWords(I) = UCase(Left(headingWords(I), 1)) & Mid(headingWords(I), 2)
Else
headingWords(I) = LCase(headingWords(I))
End If
Next I

alteredWords = Join(headingWords, " ")

If originalWords <> alteredWords Then
' Only apply track changes if there is a difference
ActiveDocument.TrackRevisions = True
paraRange.text = alteredWords
ActiveDocument.TrackRevisions = False
End If

'Restoring original style
para.Style = originalStyle

'Restoring track changes status
ActiveDocument.TrackRevisions = originalUserTrackedRevisions

End If
Next k

Application.StatusBar = False
Application.ScreenUpdating = True


End Sub

Hi! Since "-" is a word, try the following basic code (without the exclusion check):

I could be missing something, but your code seems to be doing a lot of extraneous work.
Would this do?

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

I'm pretty sure the problem is due to words with hyphens or in parentheses not being processed correctly. To handle such words correctly, you need to change the logic of your code.

Motherhood statements are unhelpful. Unless you can recommend specific code changes, all you're doing is adding clutter.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]