Word VBA更新模块问题：运行时无法删除当前调用模块

当宏运行在Module1中时，尝试删除Module1会失败，只有宏停止后模块才会被删除——这是因为VBA不允许删除正在执行代码的模块。以下是两种可行的解决思路：

解决方案1：将删除逻辑移至非删除目标模块（如ThisDocument） #

把删除操作的代码放到不会被删除的模块里（比如Normal模板的ThisDocument），这样执行删除时，代码所在模块不在删除列表中，就能正常删除目标模块。

修改步骤： #

1. 打开Normal模板的ThisDocument模块，将RemoveModulesAndForms函数改为Public并粘贴进去：

Public Function RemoveModulesAndForms() As Boolean
    Dim component As Object
    Dim componentName As String
    Dim isComponentRemoved As Boolean
    Dim notRemoved() As Variant
    Dim i As Integer
    Dim isAllRemoved As Boolean
    Dim prompt As String

    i = -1
    isAllRemoved = True
    For Each component In Application.Templates("Normal.dotm").VBProject.VBComponents
        componentName = component.Name
        DoEvents
        If componentName <> "ThisDocument" Then
            Application.Templates("Normal.dotm").VBProject.VBComponents.Remove component
            
            isComponentRemoved = Not CheckIfComponentExist(componentName)

            If isComponentRemoved = False Then
                i = i + 1
                ReDim Preserve notRemoved(i)
                notRemoved(i) = componentName
                isAllRemoved = False
            End If
        End If
    Next

    prompt = "Components not removed: " & Join(notRemoved, ",")
    If isAllRemoved = False Then
        MsgBox prompt, vbCritical
    End If
    RemoveModulesAndForms = isAllRemoved
End Function

2. 在原来Module1的Macro1中，调用ThisDocument里的函数：

Sub Macro1()
    ' 版本校验逻辑
    Dim versionMatch As Boolean
    versionMatch = ' 你的版本校验代码
    
    If Not versionMatch Then
        ' 调用ThisDocument中的删除函数
        Dim result As Boolean
        result = ThisDocument.RemoveModulesAndForms()
        ' 后续逻辑（如重新导入模块）
    End If
End Sub

解决方案2：使用Application.OnTime延迟执行删除操作 #

通过延迟执行删除逻辑，让当前宏先结束，再执行删除操作，避免删除正在运行代码的模块。

修改示例： #

1. 在Module1的Macro1中，检测到版本不一致时，设置延迟执行：

Sub Macro1()
    ' 版本校验逻辑
    Dim versionMatch As Boolean
    versionMatch = ' 你的版本校验代码
    
    If Not versionMatch Then
        ' 收集需要删除的组件名称（可动态生成）
        Dim targetComponents As String
        targetComponents = "Module1,Module2"
        ' 设置1秒后执行删除（时间可调整）
        Application.OnTime Now + TimeValue("00:00:01"), "'DeleteTargetComponents """ & targetComponents & """'"
        MsgBox "版本不匹配，将在1秒后更新模块", vbInformation
    End If
End Sub

2. 在ThisDocument模块中添加延迟执行的删除函数：

Public Sub DeleteTargetComponents(componentList As String)
    Dim vbProj As Object
    Set vbProj = Application.Templates("Normal.dotm").VBProject
    Dim componentNames() As String
    componentNames = Split(componentList, ",")
    
    Dim compName As Variant
    For Each compName In componentNames
        On Error Resume Next ' 忽略已删除或不存在的组件错误
        vbProj.VBComponents.Remove vbProj.VBComponents(compName)
        On Error GoTo 0
    Next
    
    ' 这里可以添加重新导入模块的代码
    ' 例如：vbProj.VBComponents.Import "C:\Path\To\Module1.bas"
End Sub

注意事项 #

• 确保Office软件的宏安全性设置允许访问VBA项目对象模型（在信任中心→宏设置中勾选）。
• 延迟执行的时间建议设置为1秒以上，确保当前宏完全结束。
• 重新导入模块时，注意文件路径的正确性，可使用绝对路径或相对路径。

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