将一个文本框的内容输出到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