正则表达式替换正文内容

Question

我尝试了以下操作，用数字零替换当前打开文档中的所有文本内容，但它不起作用

Set objWdDoc = Word.Application.ActiveDocument

Set objWdRange = objWdDoc.Content

Dim re As New RegExp

re.Global = True
re.Pattern = "[a-z]"
re.IgnoreCase = True
objWdRange = re.Replace(objWdRange, "0")

有人可以推荐一种工作方法吗？

Answer 1

假设您引用了 microsoft vbscript正则表达式

objWdRange.Text = re.Replace(objWdRange, "0")

会工作，但你当然会丢失任何格式。

您还可以使用内置搜索/替换，它有限的支持来查找数字/字符。记录你自己的宏，你可以检查代码。