Encontrei um modelo de macro útil no link .
Reproduzido aqui:
Sub TitleCase()
Dim lclist As String
Dim wrd As Integer
Dim sTest As String
' list of lowercase words, surrounded by spaces
lclist = " of the by to this is from a "
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
Esta macro permite ajustar os títulos de modo que as palavras de sua escolha (geralmente palavras curtas, conjunções, etc.) não sejam capitalizadas.
Veja também link
para comentários detalhados sobre estilos de capitalização.