如何向WORD文档写入图片

zzcjp

我的表单保存二进制图片，先导出到一个指定目录，格式：.jpg.
设计一个word文档，但是要怎样自动将图片插入word文档？

zzcjp

没人回答，自己顶一下。

zzcjp

已经用以下代码实现向word插入图片“
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
Set mydoc = wordApp.Documents.Open(wj)
wordApp.Visible = True
wordApp.ActiveDocument.InlineShapes.AddPicture (CurrentProject.Path & "\image.jpg")
'wordApp.ActiveDocument.Image = (CurrentProject.Path & "\image.jpg")

'区别就在这里，图片是添加到Document的局部，而不是添加到整个Document
'wordApp.Selection.TypeParagraph
'wordApp.Selection.TypeParagraph
'wordApp.Selection.TypeParagraph '二张图片之间空3行
'wordApp.ActiveDocument.InlineShapes.AddPicture (CurrentProject.Path & "\2.jpg")
Set mydoc = Nothing '释放
Set wordApp = Nothing '释放

新问题：如何把图片插入指定的图文框？
请高手帮忙！

天妖妹

学习中。。。

lovehere

帮你定，也要学习