Question

想在word中的指定位置插入图片，求VB代码！

有多个WORD和图片，想一个word放一张，急求，谢谢！！！！！

Answer 1

'替换图片
sub
pic(byval
img
as
image,
byval
czp
as
string)
clipboard.clear()
'清空剪贴板
clipboard.setimage(img)
'把picturebox1.image图片放到剪贴板
wdapp.selection.find.clearformatting()
wdapp.selection.find.replacement.clearformatting()
with
wdapp.selection.find
.text
=
czp
'要替换的字符
.replacement.text
=
"^c"
'替换成picturebox1.image里的图片
.forward
=
true
.wrap
=
1
.format
=
false
.matchcase
=
false
.matchwholeword
=
false
.matchbyte
=
true
.matchwildcards
=
false
.matchsoundslike
=
false
.matchallwordforms
=
false
end
with
wdapp.selection.find.execute(replace:=2)
end
sub

Answer 2

引用Word.Application对象
打开：set
DC=Word.Application对象.Documents.open(文件）
插入：DC.Selection.InlineShapes.AddPicture
FileName:="图片全路径.jpg",
LinkToFile:=False,
SaveWithDocument:=True