将所有大写文本替换为小写字母和wdTitleSentence

问题描述

在过去的两天里，我一直在解决这个问题，但找不到解决方法。 我有一个文档（400页），其中我想将所有大写单词替换为SmallCaps，并将文本设置为“标题句子”。 注册宏时，发现了所需的命令：

Selection.Range.Case = wdTitleSentence
Selection.Font.SmallCaps = wdToggle

问题是我找不到将这些命令仅应用于大写单词而不应用于所选文本的方法。

解决方法

您可以尝试使用通配符搜索，尽管您需要小心以其他方式指定它，否则您可以将文档中的每个大写字母更改为小写。

Sub ConvertUpperCase()
   Dim findRange As Range
   Set findRange = ActiveDocument.Content
   
   With findRange.Find
      .ClearFormatting
      'find at least two consecutive capital letters
      .Text = "[A-Z]{2,}"
      .MatchWildcards = True
      Do While .Execute = True
         With findRange
            .Case = wdTitleSentence
            .Font.SmallCaps = True
            .Collapse wdCollapseEnd
         End With
      Loop
   End With
End Sub