办公技巧之 批量制作含有图片的文稿 2.0

我们在工作中经常需要制作类似“一口一档”、“一企一档”的文稿，涉及大量基础信息和照片的匹配。如果手动一张张插入图片，效率极低且极易出错。

今天分享一套从 Excel 批量生成 Word 文稿，并一键将图片链接转为永久嵌入图片的完整工作流。

这一版在原来的基础上升级了图片域转图片的方法，更加方便。

---

一、资料准备

1. 基础信息表 (Excel)：包含所有文字字段，以及图片在电脑中的绝对路径。
   • 路径示例：D:\00一口一策\文档图片\image1.png
   • 提示：建议图片命名与排口编号一致，如果文件多可以使用 Python 脚本，方便用 Excel 公式批量生成路径。
2. 排口照片：存放在固定文件夹内。

---

二、制作 Word 模板

1. 文本变量设置

1. 在 Word 中做好文档框架。
2. 点击 邮件 -> 选择收件人 -> 使用现有列表 -> 选择你的 Excel 文件。
3. 在对应位置点击 插入合并域，选择对应的变量名。

2. 图片变量设置（核心步骤）

1. 插入占位域：点击 插入 -> 文档部件 -> 域，选择 IncludePicture。在【文件名或 URL】中随便输入一个词（如“卫星图”），勾选【未随文档存储的数据】。
2. 调整大小：此时会出现一个报错或空白框，手动调整到你想要的大小。
3. 编写逻辑代码：
   • 按 Alt + F9 切换到域代码模式。
   • 选中“卫星图”三个字，按 Ctrl + F9 插入一对新的大括号。
   • 在大括号内输入 if true，然后点击 邮件 -> 插入合并域 -> 选择 Excel 中的图片路径字段。
   • 最终代码看起来应该是：{ INCLUDEPICTURE { if true "«图片路径»" } \d }
4. 预览：再次按 Alt + F9 切换回图片模式，点击 预览结果 即可看到图片。

---

三、进阶：一键将图片域转为嵌入图片

为什么要这一步？
通过上述方法生成的 Word，图片本质上是“链接”。如果你把文档发给同事，由于他电脑里没有对应的路径，图片会显示为红叉。

使用以下 VBA 脚本，可以一键将全文的“链接图片”转为“嵌入图片”，彻底解决转发失效的问题。

✅ 优化版 VBA 代码

Sub ConvertIncludePictureToEmbedded()
    Dim fld As Field
    Dim ils As InlineShape
    Dim shp As Shape
    
    Application.ScreenUpdating = False
    
    ' 1. 处理嵌入型图片
    For Each ils In ActiveDocument.InlineShapes
        If ils.Type = wdInlineShapeLinkedPicture Then
            ils.LinkFormat.SavePictureWithDocument = True   ' 允许随文档保存
            ils.LinkFormat.BreakLink                        ' 断开链接，转为嵌入
        End If
    Next ils
    
    ' 2. 处理浮动型图片
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoLinkedPicture Then
            shp.LinkFormat.SavePictureWithDocument = True
            shp.LinkFormat.BreakLink
        End If
    Next shp
    
    ' 3. 清理残留的域代码
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldIncludePicture Then
            fld.Unlink
        End If
    Next fld
    
    Application.ScreenUpdating = True
    MsgBox "已完成：所有图片已成功转为嵌入格式！", vbInformation
End Sub

🎯 使用方法

1. 在 Word 中按 Alt + F11 打开 VBA 编辑器。
2. 点击 插入 -> 模块，粘贴上方代码。
3. 按 Alt + F8，选中 ConvertIncludePictureToEmbedded 并运行。

---

四、总结

通过这套“邮件合并 + VBA 优化”的组合拳，你可以：

• 快速生产几百份带图片的文稿。
• 保证文档发给任何人都能正常显示。
• 极大提升办公自动化水平。

相关阅读：
[[办公技巧 word 批量将图片域转为图片]]（旧方案）
[[办公技巧 之 批量制作含有图片的文稿]]（旧方案）

[!tip]
如果这篇分享对你有所启发，欢迎关注我！也期待你的点赞、收藏、转发、推荐或留言～你的支持，是我持续创作的最大动力！感谢！🙏
微信公众号：环境猫 er
CSDN : 细节处有神明
个人博客：https://maoyu92.github.io/