如何仅对文档全大写文字应用wdTitleSentence与SmallCaps格式？

我太懂你被这个问题卡两天的感受了——400页文档手动改根本不现实，录宏的命令只能处理选中内容，确实没法精准定位全大写文本。别慌，用VBA就能搞定，直接针对所有全大写内容批量处理，步骤如下：

核心思路 #

通过Word的查找功能定位所有全大写的文本片段，然后逐个对这些片段应用wdTitleSentence格式和SmallCaps样式，全程自动处理，不用手动选内容。

具体VBA代码 #

打开Word，按Alt+F11调出VBA编辑器，插入一个新模块，粘贴下面的代码：

Sub ConvertAllCapsToSmallCapsTitleCase()
    Dim doc As Document
    Dim findRange As Range
    
    Set doc = ActiveDocument
    Set findRange = doc.Content
    
    ' 配置查找规则：匹配全大写单词（至少2个大写字母，避免单个大写字母误处理）
    With findRange.Find
        .ClearFormatting
        .Text = "<[A-Z]{2,}>"
        .MatchWildcards = True
        .MatchCase = True
        .Forward = True
        .Wrap = wdFindStop ' 找到文档末尾即停止，避免无限循环
    End With
    
    ' 遍历所有匹配的全大写文本
    Do While findRange.Find.Execute
        ' 应用标题句格式（每个句子的首字母大写，其余字母小写）
        findRange.Case = wdTitleSentence
        ' 设置小型大写字母样式
        findRange.Font.SmallCaps = True
        
        ' 移动查找范围，避免重复处理同一内容
        findRange.Collapse wdCollapseEnd
    Loop
    
    MsgBox "全大写文本格式转换完成！", vbInformation
End Sub

代码细节说明 #

• "<[A-Z]{2,}>"：用通配符匹配至少2个连续大写字母的单词，这样可以避开单个大写字母（比如句子里的"I"、"A"）；如果你需要包含单个大写字母，把{2,}改成{1,}即可。
• wdTitleSentence：这个参数会把文本转换成“标题句格式”——每个句子的首字母大写，其余字母小写；如果需要每个单词首字母大写，换成wdTitleWord就行。
• findRange.Font.SmallCaps = True：直接设置为小型大写，比wdToggle更可靠，不会因为原有格式导致切换错误。

操作步骤 #

1. 先备份你的400页文档（重要！避免意外）
2. 打开文档，按Alt+F11进入VBA编辑器
3. 右键点击左侧的文档名称，选择「插入」→「模块」
4. 把上面的代码粘贴到模块窗口里
5. 按F5运行代码，等待处理完成即可

内容的提问来源于stack exchange，提问作者mitoff