如何使用.NET/C#向Word文档中注入VBA宏

• 核心逻辑错误：VbaDataPart是VbaProjectPart的从属子部件，原代码错误将VbaDataPart的数据流直接写入了目标的VbaProjectPart对象，导致两个独立部件的内容被混淆，完全破坏了Office文件的OpenXML结构，这就是生成的文件无法被Word读取的直接原因。
• 缺失格式校验：如果目标文件是普通.docx格式（非宏启用格式），即使VBA部件注入成功，宏也无法正常运行。

private static void cloneVbaPart(string src, string dst)
{
    using (WordprocessingDocument srcDoc = WordprocessingDocument.Open(src, false))
    {
        var vbaPart = srcDoc.MainDocumentPart.VbaProjectPart;
        // 源文档无VBA项目时直接退出
        if (vbaPart == null) return;

        using (WordprocessingDocument dstDoc = WordprocessingDocument.Open(dst, true))
        {
            // 清理目标文档原有VBA相关残留部件
            var partsToRemove = new List<OpenXmlPart>();
            foreach (var part in dstDoc.MainDocumentPart.GetPartsOfType<VbaProjectPart>()) {
                partsToRemove.Add(part);
            }
            foreach (var part in dstDoc.MainDocumentPart.GetPartsOfType<CustomizationPart>())
            {
                partsToRemove.Add(part);
            }
            foreach (var part in partsToRemove)
            {
                dstDoc.MainDocumentPart.DeletePart(part);
            }
            
            // 复制VBA项目主部件
            var vbaProjectPart = dstDoc.MainDocumentPart.AddNewPart<VbaProjectPart>();
            using (Stream data = vbaPart.GetStream())
            {
                vbaProjectPart.FeedData(data);
            }

            // 单独复制从属的VbaDataPart部件
            if (vbaPart.VbaDataPart != null)
            {
                var targetVbaDataPart = vbaProjectPart.AddNewPart<VbaDataPart>();
                using (Stream data = vbaPart.VbaDataPart.GetStream())
                {
                    targetVbaDataPart.FeedData(data);
                }
            }

            // 自动将目标文档转换为宏启用格式，避免因格式问题导致宏失效
            if (dstDoc.DocumentType != WordprocessingDocumentType.MacroEnabledDocument)
            {
                dstDoc.ChangeDocumentType(WordprocessingDocumentType.MacroEnabledDocument);
            }
        }
    }
}

• 运行前请确保你的项目引用的是OpenXML SDK 2.5及以上版本
• 宏注入完成后如果触发Office安全拦截，可在信任中心调整宏安全级别；若原VBA项目有数字签名，注入后签名会失效，需要重新签名后再运行
• 转换后的宏启用文档建议修改后缀为.docm，避免Office识别异常

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