| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 888 人关注过本帖
标题:[求助]ole的问题:文本框内容输出到Word(找错)
只看楼主 加入收藏
laoapi
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-8-11
收藏
 问题点数:0 回复次数:0 
[求助]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

搜索更多相关主题的帖子: 文本框 Word ole path 输出 
2006-08-12 23:29
快速回复:[求助]ole的问题:文本框内容输出到Word(找错)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.062607 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved