求可打开VBA编辑器的宏代码，是否支持文本查找替换？

一、仅打开VBA编辑器的代码 #

在Excel、Word等支持VBA的Office应用中，可通过以下代码直接打开VBA编辑器：

Sub OpenVBAEditor()
    Application.VBE.MainWindow.Visible = True
End Sub

执行这段代码后，会直接调出VBA编辑器界面。不同Office程序中，Application对象对应各自的应用实例，逻辑完全一致。

二、打开VBA编辑器并执行文本查找替换 #

通过VBE对象模型，可实现打开编辑器同时完成代码模块内的文本替换，示例代码如下（以Excel为例）：

Sub OpenVBAEditorAndReplaceText()
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim codeMod As CodeModule
    Dim searchText As String
    Dim replaceText As String
    
    ' 定义查找和替换的目标文本
    searchText = "oldText"
    replaceText = "newText"
    
    ' 先打开VBA编辑器
    Application.VBE.MainWindow.Visible = True
    
    ' 遍历当前工作簿的所有VBA模块
    For Each vbProj In Application.VBE.VBProjects
        ' 注意：需提前启用VBA项目对象模型访问权限
        ' 设置路径：文件>选项>信任中心>信任中心设置>宏设置>勾选"信任对VBA项目对象模型的访问"
        For Each vbComp In vbProj.VBComponents
            Set codeMod = vbComp.CodeModule
            ' 在模块范围内执行替换
            With codeMod
                .Replace _
                    What:=searchText, _
                    Replacement:=replaceText, _
                    StartLine:=1, _
                    EndLine:=.CountOfLines, _
                    MatchCase:=False, _
                    MatchWholeWord:=False, _
                    MatchWildcards:=False, _
                    MatchSoundsLike:=False, _
                    MatchAllWordForms:=False
            End With
        Next vbComp
    Next vbProj
End Sub

关键说明： #

• 若只需针对特定模块操作，可直接指定目标VBProject和VBComponent，无需遍历所有模块。
• 必须启用VBA项目对象模型访问权限，否则代码会因权限限制报错。

内容的提问来源于stack exchange，提问作者Saima