Office中国论坛/Access中国论坛

标题: 如何向WORD文档写入图片 [打印本页]

作者: zzcjp 时间: 2008-11-4 01:08
标题: 如何向WORD文档写入图片
我的表单保存二进制图片，先导出到一个指定目录，格式：.jpg.
设计一个word文档，但是要怎样自动将图片插入word文档？

作者: zzcjp 时间: 2008-11-4 15:14
没人回答，自己顶一下。

作者: zzcjp 时间: 2008-11-5 10:32
已经用以下代码实现向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 '释放

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

作者: 天妖妹 时间: 2010-8-3 17:34
学习中。。。

作者: lovehere 时间: 2010-8-4 10:28
帮你定，也要学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)