没必要一定要存到 Attachments 文件夹下
红色代码的是可以改的
wrt.ReplaceWithImage("[图片" & i-Tables("表A").TopPosition+1 & "]", ProjectPath & "Attachments/" & Tables("表A").Rows(i)("图片").trim(chr(10)).split(chr(13))(0),100,75)
加好友 
发短信
Post By：2015/6/11 17:40:00 [只看该作者]
