Access表单VBA生成Word：INCLUDEPICTURE域传图片路径无显示求解

我来帮你排查一下问题，看起来你的代码逻辑大体没问题，但有几个细节没处理到位，导致图片无法正常显示：

1. 修正INCLUDEPICTURE域的格式 #

你的Word域代码是{INCLUDEPICTURE {DOCVARIABLE PICTURE}\* MERGEFORMAT}，但Word的INCLUDEPICTURE要求路径必须用英文双引号包裹，否则无法正确识别路径。请修改为：

{INCLUDEPICTURE "{DOCVARIABLE PICTURE}" \* MERGEFORMAT}

注意引号要放在DOCVARIABLE变量的外侧，且必须是英文双引号。

2. 完善记录集的判断逻辑 #

你当前的代码里：

If Me.Combo474.Value = rs_image!ImageName Then
    imgPath = rs_image!imagePath
End If

存在隐患：如果rs_image是空记录集（比如没找到匹配的ImageName），直接访问rs_image!ImageName会触发错误。建议改成先判断记录集是否有数据：

If Not rs_image.EOF Then
    imgPath = rs_image!imagePath
End If

因为你已经在SQL语句里过滤了ImageName = '" & Me.Combo474.Value & "'"，只要记录集不为空，就是匹配的结果，不需要额外再做一次值判断。

3. 强制触发Word域更新 #

即使DOCVARIABLE变量赋值正确，Word默认不会自动更新INCLUDEPICTURE域。你需要在VBA代码的变量赋值步骤后，添加域更新的代码：

' 更新文档中所有域
objDOC.Fields.Update

' 如果只想更新INCLUDEPICTURE域（避免影响其他域），可以用循环
Dim fld As Field
For Each fld In objDOC.Fields
    ' 后期绑定的话，把wdFieldIncludePicture替换为数值19
    If fld.Type = wdFieldIncludePicture Then
        fld.Update
    End If
Next fld

4. 验证路径的有效性 #

先确认imgPath是有效的绝对路径（比如C:\Users\ftk1187\Desktop\test.jpg），替换后的imgPath_rp是C:\\Users\\ftk1187\\Desktop\\test.jpg。你可以手动把这个路径放到Word的INCLUDEPICTURE域里测试：右键更新域，如果手动都无法显示，那就是路径本身的问题（比如文件不存在、没有读取权限）。

把这些调整之后，应该就能正常显示图片了。

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