将除首字母缩写词外的所有单词转换为标题大小写

Question

我想询问任何关于如何将句子转换为标题大小写的建议，除了Microsoft Word中的首字母缩写(或所有大写的单词)。目前，我的代码仅转换标题大小写中特定样式的所有句子。希望你能帮上忙。谢谢

Sub ChangeCase() StrFind = "K-1,K-2,K-3" 
      For i = 0 To UBound(Split(StrFind, ","))
     With Selection.Find
     .ClearFormatting
     .Wrap = wdFindContinue
     .Forward = True
     .Format = True
     .MatchWildcards = False
     .Text = ""
     .Style = Split(StrFind, ",")(i)
     .Execute
     While .Found
         Selection.Range.Case = wdTitleWord
         Selection.Collapse Direction:=wdCollapseEnd
        .Execute
     Wend
 End With
 Next i
 End Sub

Answer 1

如果目标是TitleCase还没有完全大写的单词，我认为下面的方法应该是可行的。

Option Explicit

Public Sub TitleCaseDocument()
    Dim doc As Document: Set doc = ThisDocument
    Dim wrd As Range

    For Each wrd In doc.Words
        If wrd.Text <> UCase$(wrd.Text) Then wrd.Case = wdTitleWord
    Next
End Sub