如何在WORD中插入带相片的域?

ww0000

如何在WORD中插入带相片的域?
数据文件为：名册.XLS
D1单元格为“相片”
WORD中的VBA如何写？

谢谢

ww0000

比如：{INCLUDEPICTURE  "{MERGEFIELD  相片  \* MERGEFORMAT}"  \* MERGEFORMAT}

最外层的{INCLUDEPICTURE  MERGEFIELD  相片  \* MERGEFORMAT  \* MERGEFORMAT}可以用下面的插入

Sub 插入域()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "INCLUDEPICTURE  MERGEFIELD  相片  \* MERGEFORMAT  \* MERGEFORMAT  ", PreserveFormatting:=True
End Sub


但里层的"{MERGEFIELD  相片  \* MERGEFORMAT}"怎么插入套嵌？

thunor

{INCLUDEPICTURE  "相片"  \* MERGEFORMAT}就行了。不套嵌
相片是指相片文件的路径。比如：D:\1.jpg,必须在域内形式为“d:\\1.jpg”（注意是两个\\）,如果路径更复杂，都要这样处理。
但这样好象不能插入，你可以先将照片导入WORD再来插入。

ww0000

thunor 发表于 2015-2-10 20:09
{INCLUDEPICTURE  "相片"  \* MERGEFORMAT}就行了。不套嵌
相片是指相片文件的路径。比如：D:\1.jpg,必须在 ...

你这样是插入不了相片的！！

thunor

以前试过（当时用的是XP，今天用的是WIN7），完全可以插入照片。但昨天在回答你问题的时候，测试不行。我的意思是你可以将照片导入到WORD，再加载相应的WORD文件。