关于将WORD文档字符返回到字符串的问题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于将WORD文档字符返回到字符串的问题

我的收件箱(0)

共有 1370 人关注过本帖， 1 人收藏

标题：关于将WORD文档字符返回到字符串的问题

只看楼主加入收藏

所思在远道丶

等　级：新手上路
帖　子：8
专家分：0
注　册：2016-5-30
结帖率：33.33%

楼主

已结贴√ 问题点数：10 回复次数：5

关于将WORD文档字符返回到字符串的问题

函数Filetostr（）可以将TXT文件的字符赋值给一个字符串，那么我现在有一个.doc文件，假设里面全是字，没有图片，要用什么函数将里面的字符全部赋值给一个字符串

搜索更多相关主题的帖子: 字符串　图片　

2016-06-06 09:12

baichuan

等　级：贵宾
威　望：37
帖　子：953
专家分：589
注　册：2006-3-13

第 2 楼

得分:4

用文件另存为

2016-06-07 08:26

厨师王德榜

等　级：贵宾
威　望：199
帖　子：1013
专家分：5091
注　册：2013-2-16

第 3 楼

得分:4

给你提供一个示范吧。假定你要打开的Word文件，名字是C:\TestDoc.Doc，我们要把它里面的文字读到编辑框中：

程序代码：

LOCAL oWord,oChar as  Object
oWord = Createobject("Word.Application")
oWord.Visible = .F.
oWord.Documents.Open( "C:\TestDoc.Doc" )
thisform.edit1.Value=""
FOR EACH oChar IN oWord.ActiveDocument.Characters
    thisform.edit1.Value=thisform.edit1.Value + oChar.text
ENDFOR 

oWord.ActiveDocument.Close
oWord.Quit

oWord = Null
Release oWord

Word不是纯文本TXT文档，如果用你原来的方法读（Filetostr（）），应该会读到乱码吧？用OLE对象去读，应该会好很多。

[此贴子已经被作者于2016-6-7 09:41编辑过]

收到的鲜花

hu9jj 于 2016-06-07 19:25 送鲜花 50朵附言：好文章

2016-06-07 09:36

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11858
专家分：43421
注　册：2006-5-13

第 4 楼

得分:4

以下是引用厨师王德榜在2016-6-7 09:36:31的发言：

给你提供一个示范吧。假定你要打开的Word文件，名字是C:\TestDoc.Doc，我们要把它里面的文字读到编辑框中：LOCAL oWord,oChar as Object
oWord = Createobject("Word.Application")
oWord.Visible = .F.
oWord.Documents.Open( "C:\TestDoc.Doc" )
thisform.edit1.Value=""
FOR EACH oChar IN oWord.ActiveDocument.Characters
thisform.edit1.Value=thisform.edit1.Value + oChar.text
ENDFOR

oWord.ActiveDocument.Close
oWord.Quit

oWord = Null
Release oWord
Word不是纯文本TXT文档，如果用你原来的方法读（Filetostr（）），应该会读到乱码吧？用OLE对象去读，应该会好很多。

有参考价值，值得收藏。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2016-06-07 19:24