[求助]ole的问题:文本框内容输出到Word(找错)
将一个文本框的内容输出到Word. 下面是在一本教材(《PowerBuilder程序设计技能百炼》中国铁道出版社 姚策 王东 著)抄写的一段代码,一个字母也不差 可惜不好用
本人系统 xp sp2+pb 9.0 build 5507
有更好代码 请贴一下 谢了,先
OLEObject o1
string s1,path
//建立OLE对象
o1 = CREATE OLEObject
//连接到Word应用
o1.ConnectToNewObject("Word.application")
//获取当前目录
path = GetCurrentDirectory()
//打开temp.doc文件
o1.documents.open(path + "\temp.doc")
//不显示应用界面
o1.Application.Visible = false
//获取文档用户名
s1 =o1.UserName
Messagebox("用户名为:",s1)
//获取文档名
s1 = o1.Activedocument.name
MessageBox("文件名为:",s1)
o1.Selection.typeparagraph()
//将文本框中内容输入到Word中
o1.selection.typetext(mle_1.text)
//保存
o1.activedocument.save()
o1.quit()
//断开
o1.disconnectobject()
destroy o1
return