不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

请问怎么样在一个已经存在的word里面插入图片啊？

楼主salivapig（口水猪）2005-08-01 16:34:17 在 PowerBuilder / 基础类提问

请问怎么样在一个已经存在的word里面插入图片啊？找的例子全是新建个word的问题点数：100、回复次数：9Top

1 楼balloonman2002（）回复于 2005-08-01 17:36:20 得分 90

OLEObject ole_object
ole_object=CREATE OLEObject

if ole_object.ConnectToNewObject("Word.Application")<> 0 then
MessageBox('OLE错误','OLE无法连接!')
return
end if
ole_object.visible=true //要不想显示插入过程，可以将WORD隐藏起来 ole_object.visible=false
ole_object.Documents.Add()
Clipboard("WORD插图测试")
ole_object.Selection.Paste() //此处不要用ole_object.Selection.Text("WORD插图测试")否则有乱码
ole_object.Selection.TypeParagraph()

ole_object.Selection.InlineShapes.AddPicture("C:\WINNT\winnt.bmp",False,True)

ole_object.ActiveDocument.SaveAs("e:\demo.doc", 0,False,"",True,"",False,False,False, False,False)
ole_object.Quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
Messagebox('提示','导出完毕')Top

2 楼balloonman2002（）回复于 2005-08-01 17:40:49 得分 0

//此外关于WORD中汉字处理可参考：
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1718
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1749Top

3 楼salivapig（口水猪）回复于 2005-08-02 09:24:20 得分 0

按上面方法的是会把现有文档覆盖掉，我是要在现在的文档最后插入一幅图片Top

4 楼balloonman2002（）回复于 2005-08-02 10:03:46 得分 0

兄弟，你不会改改，难道所有事情都要别人替你完成啊，:)Top

5 楼balloonman2002（）回复于 2005-08-02 10:07:59 得分 0

http://blog.csdn.net/balloonman2002/archive/2004/09/24/115455.aspx

PB利用OLE操作WORD、EXCEL的函数可以查看WORD、EXCEL的帮助文件，里面关于WORD、EXCEL的编程信息非常详实，如果你的WORD、EXCEL帮助当中没有相关内容，重装OFFICE，选择相关安装内容即可，这个问题也属于老问题，很多朋友问此问题，下面以WORD当中Ole_Object.Selection.TypeText()这个例子，我抓了几张图，描述了具体如何查找相关对象、相关方法、具体用法的过程，具体见：
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/o_VBA-1.JPG
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/o_VBA-2.JPG
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/o_VBA-3.JPG
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/o_VBA-4.JPG

如果不知道相应的功能对应哪些对象、那些函数，可以通过WORD、EXCEL自带的“录制宏”功能实现Top

6 楼salivapig（口水猪）回复于 2005-08-02 10:55:09 得分 0

5555就是看不懂才问的呀：（Top

7 楼lzheng2001（１加１）回复于 2005-08-02 14:05:25 得分 10

1楼的代码就是啦,你用就是了,有什么问题再提出来Top

8 楼salivapig（口水猪）回复于 2005-08-02 14:46:58 得分 0

因为暂时找不到office安装盘，所以看不到帮助：（用了一楼的代码，能把图贴进word，但会把原来的word文档覆盖，我不知道怎么样才能在word文档的最后贴图，谢谢Top

9 楼balloonman2002（）回复于 2005-08-02 14:52:25 得分 0

改进后版本：

String ls_filename
OLEObject ole_object
ole_object=CREATE OLEObject

ls_filename = "e:\demo.doc"

if ole_object.ConnectToNewObject("Word.Application")<> 0 then
MessageBox('OLE错误','OLE无法连接!')
return
end if
ole_object.visible=true //要不想显示插入过程，可以将WORD隐藏起来 ole_object.visible=false

if fileexists(ls_filename) then
ole_object.Documents.Open(ls_filename)
else
ole_object.Documents.Add()
end if

ole_object.Selection.WholeStory()
ole_object.Selection.EndKey(5)
ole_object.Selection.TypeParagraph()

Clipboard("WORD插图测试")
ole_object.Selection.Paste() //此处不要用ole_object.Selection.Text("WORD插图测试")否则有乱码
ole_object.Selection.TypeParagraph()

ole_object.Selection.InlineShapes.AddPicture("C:\WINNT\winnt.bmp",False,True)

ole_object.ActiveDocument.SaveAs(ls_filename, 0,False,"",True,"",False,False,False, False,False)
ole_object.Quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
Messagebox('提示','导出完毕')

//关于WORD中汉字处理可参考：
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1718
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1749Top