Sub Test()
Dim para As Paragraph
Dim oWd As range
    Application.ScreenUpdating = False
     For Each para In ActiveDocument.range.Paragraphs
      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
         For Each oWd In para.range.words
            oWd.Select
            If oWd = "-" Or oWd = "(" Then
                selection.Characters.Last.Next = UCase(selection.Characters.Last.Next)
            End If
         Next oWd
      End If
     Next para
Application.ScreenUpdating = True
End Sub