Regex 如何在Microsoft word中查找每个单词以大写字母开头的短语

在MS Word的高级查找中，我可以使用什么模式突出每个单词以大写字母开头的短语？这些短语有不同数量的单词，单词有不同数量的字母。如果有一个句号，或者一个单词以小写字母开头，那么这就是一个短语的结尾

要突出显示的短语示例

为履行法律合同，他将通过电子邮件发送已签署的AAA文件然后将存档已签名的审阅文档。

尝试：

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<[A-Z][A-Za-z]@ [A-Z][A-Za-z]@>"
    .Replacement.Text = ""
    .Forward = True
    .Format = False
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    i = i + 1
    Do While .Words.Last.Next Like "[A-Z]"
      .MoveEnd wdWord, 1
    Loop
    .HighlightColorIndex = wdYellow
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
MsgBox i & " strings processed."
End Sub

子演示（）
Application.ScreenUpdating=False
我想我会坚持多久
使用ActiveDocument.Range
和…一起找
.ClearFormatting
.Replacement.ClearFormatting
.Text=“”
.Replacement.Text=“”
.Forward=True
.Format=False
.Wrap=wdFindStop
.MatchWildcards=True
.执行
以
找，找，找到
i=i+1
做While.Words.Last.Next像“[A-Z]”
.MoveEnd wdWord，1
环
.HighlightColorIndex=wdYellow
.倒塌
.Find.Execute
环
以
Application.ScreenUpdating=True
MsgBox i&“已处理字符串。”
端接头

有关PC宏的安装和使用说明，请参阅：

---

有关Mac宏的安装和使用说明，请参阅：

无法告诉不同的betwebn Legal和Simon，有什么不同？刚刚看到错误，正要修改：）您尝试了什么？请编辑您的帖子以包含您的代码。高级查找>检查“使用的通配符”>搜索词

。这突出显示了以大写字母开头的单词，但我不知道如何将其应用于数量可变的单词，这些单词之间有空格。我认为这与[！.\]有关，但我不能完全理解。没有VBA，你无法做到这一点。正如我所说，请张贴您的代码。