Регулярное выражение заменяет содержимое тела

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

Будет работать, хотя вы, конечно, потеряете любое форматирование.

Вы также можете использовать встроенный поиск / замену, который имеет ограниченную поддержку для поиска цифр / символов. Запишите макрос себя, делающего это, и вы можете изучить код.