正则表达式替换正文内容

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")

将起作用，尽管您当然会丢失任何格式。

您还可以使用内置的搜索/替换功能，它对查找数字/字符的支持有限。记录自己执行此操作的宏，您可以检查代码。