没必要一定要存到 Attachments 文件夹下
红色代码的是可以改的
wrt.ReplaceWithImage("[图片" & i-Tables("表A").TopPosition+1 & "]", ProjectPath & "Attachments/" & Tables("表A").Rows(i)("图片").trim(chr(10)).split(chr(13))(0),100,75)