Ms word VB宏使用GREP表达式在Word文档中搜索

由于Word没有基于正则表达式的搜索机制，因此我尝试编写一个简单的宏，在本例中，该宏将在当前活动文档中搜索一段时间（

），后面没有空格。这是我的第一个通行证：

Sub TestREG()
'
' TestREG Macro
'
'
Set objRegExp1 = CreateObject("vbscript.regexp")
objRegExp1.Global = True
objRegExp1.IgnoreCase = True
objRegExp1.Pattern = "\.[A-Z]"
MyDOC = ActiveDocument
objRegExp1.Execute (MyDOC)
End Sub

我知道我在这里遗漏了很多，但我试着在一个开放的Word文档中记住如何做到这一点。我尝试的每个测试，当我一步一步地进行时，都返回

False

---

有人能建议我怎么做吗？

自2007年以来，Word似乎可以使用正则表达式：

---

我以为它以前是，但找不到。这将工作，但我想知道如何通过一个VB脚本，这样我就可以让脚本搜索几件事一次。