hur.cn - 华软网

 热门搜索

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

  作者:未知    来源:网络    更新时间:2018/5/16
请问怎么样在一个已经存在的word里面插入图片啊?找的例子全是新建个word的
------华软网友回答------
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('提示','导出完毕')
------华软网友回复------
//此外关于WORD中汉字处理可参考:
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1718
//http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1749
------华软网友回复------
按上面方法的是会把现有文档覆盖掉,我是要在现在的文档最后插入一幅图片
------华软网友回复------
兄弟,你不会改改,难道所有事情都要别人替你完成啊,:)
------华软网友回复------
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自带的“录制宏”功能实现
------华软网友回复------
5555就是看不懂才问的呀:(
------华软网友回复------
1楼的代码就是啦,你用就是了,有什么问题再提出来
------华软网友回复------
因为暂时找不到office安装盘,所以看不到帮助:(用了一楼的代码,能把图贴进word,但会把原来的word文档覆盖,我不知道怎么样才能在word文档的最后贴图,谢谢
------华软网友回复------
改进后版本:

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=1749      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。