MS Word中的VBA正则表达式：匹配新行

Question

我正在尝试用单个换行将此模式替换为宏中的正则表达式（我不能使用通配符）：
换行
数字
换行

在记事本++中，我使用此模式\r\n\d+\r\n，并替换为\r\n

在VBA中，尽管我读了here（以及许多其他线程），但我仍必须使用\r来匹配新行。所以，到目前为止，这是我的脚本：

Sub regex()
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    On Error Resume Next
    RegEx.Global = True
    RegEx.Pattern = "\r\d+\r"
    ActiveDocument.Range = RegEx.Replace(ActiveDocument.Range, "\r")
End Sub

但是，这不会用换行代替我的模式，而是用字符\和r代替（好像regex.replace无法解释regex模式） ）。 因此，我剩下的文档到处都是\r。

如何强制regex.replace理解要用regex模式替换的内容？

（当我用\s替换时，我遇到了同样的问题）