兄弟，这事儿我太有经验了！之前帮公司里好几个部门解决过宏分发的头疼问题，给你捋几个靠谱的方案，包括你心心念念的「用宏来导入宏」的办法：

这是我最推荐的方案，相当于给Word装个全局插件，一次部署终身省心：

• 新建一个空白Word文档，把你所有的宏代码复制到这个文档的VBA模块里
• 点击「文件→另存为」，格式选择「Word 启用宏的模板（*.dotm）」，保存到Word的默认加载项启动文件夹（可以通过「文件→选项→高级→文件位置」找到「Startup」的路径）
• 让公司同事把这个.dotm文件放到他们自己的Startup文件夹里，重启Word后，所有打开的文档都能直接用你的宏
• 后续更新宏的时候，你只需要替换这个.dotm文件，同事们重启Word就自动用上最新版本，完全不用碰一个个文档

如果必须要把宏嵌入到现有文档里，完全可以写个宏来批量导入更新，思路是：用一个存放最新宏的模板当「源」，遍历目标文件夹里的所有文档，替换旧宏模块。

给你写好现成的代码，直接改路径和模块名就能用：

Sub UpdateMacrosInDocuments()
    Dim sourceTemplate As Document
    Dim targetDoc As Document
    Dim sourceModule As Object
    Dim targetModule As Object
    Dim targetFolder As String
    Dim fileName As String
    
    ' 替换成你存放最新宏的模板路径（.dotm或.docm都可以）
    Set sourceTemplate = Documents.Open("C:\YourPath\Latest_Macros_Template.dotm", ReadOnly:=True)
    
    ' 替换成要更新的文档所在文件夹
    targetFolder = "C:\YourPath\Documents_To_Update\"
    fileName = Dir(targetFolder & "*.docm") ' 只处理带宏的文档，要是有.doc格式可以改成*.doc
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提速
    
    Do While fileName <> ""
        Set targetDoc = Documents.Open(targetFolder & fileName)
        
        ' 先删除旧的宏模块（避免重复），忽略删除失败的情况
        On Error Resume Next
        targetDoc.VBProject.VBComponents.Remove targetDoc.VBProject.VBComponents("Your_Module_Name")
        On Error GoTo 0
        
        ' 从源模板复制最新宏代码到目标文档
        Set sourceModule = sourceTemplate.VBProject.VBComponents("Your_Module_Name")
        Set targetModule = targetDoc.VBProject.VBComponents.Import(sourceModule.CodeModule.Lines(1, sourceModule.CodeModule.CountOfLines))
        
        ' 保存并关闭文档
        targetDoc.Save
        targetDoc.Close
        
        fileName = Dir() ' 取下一个文件
    Loop
    
    sourceTemplate.Close SaveChanges:=False
    Application.ScreenUpdating = True
    
    MsgBox "所有文档的宏更新完成！", vbInformation
End Sub

注意事项： #

• 必须确保Word启用了信任对VBA项目对象模型的访问：打开「文件→选项→信任中心→信任中心设置→宏设置」，勾选这个选项（不然代码没法操作VBA项目）
• 提前备份要更新的文档，避免意外
• 把代码里的Your_Module_Name改成你实际的宏模块名称

如果公司有IT部门支持，这招能彻底解放你的双手：

• 把你的.dotm加载项放到公司共享服务器的固定路径
• 让IT通过组策略，把所有员工的Word Startup文件夹指向这个共享路径
• 后续你只需要更新服务器上的.dotm文件，员工打开Word就自动用最新宏，连手动复制都省了

总结一下：优先选方案1，长期维护最轻松；要是必须更新现有文档，方案2直接满足你的需求；有IT支持的话方案3是天花板级别的偷懒方法😎

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