在VBA的查找和替换工具

Question

有没有办法在VBA编辑器的查找和替换工具中使用正则表达式？

例如： 我已经开启了模式匹配，但我的正则表达式似乎根本不起作用。

Answer 1

有没有办法在VBA编辑器的查找和替换工具中使用正则表达式？

• 不。

但是，如果您想要按Sub替换某些内容，则可以循环所有Subs，检查Private并添加以下内容：

For Each objComp In objPro.VBComponents
    If objComp.Type = 1 Then
        strText = objComp.CodeModule.Lines(1, UP_TO_LINE)

        If InStr(1, strText, PRIVATE_MODULE) = 0 Then
            objComp.CodeModule.InsertLines 2, PRIVATE_MODULE
        End If

    End If
Next objComp

整个代码来自这个答案 - https://stackoverflow.com/a/41612479/5448626

使用VBEditor＆amp; VBA非常有趣：

http://www.rondebruin.nl/win/s9/win002.htm