• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

求助WORD如何逐行读取? [复制链接]

1#
CREW LIST MU2045/6 21DEC FOC SIN B2337
CA LI CHONG (11 09 1983)M/SE0327852/06092022/CN
FO LIU CUN (27 06 1992)M/S90477981/04032020/CN
word内容
Dim LazyWord, path, Index, TEXT
path = "C:\测试.doc"
Set LazyWord = CreateObject("Lazy.LxjWord")
Index = LazyWord.WordOpen(path, 1)
TEXT = LazyWord.WordReadEX(Index)
msgbox TEXT
可是TEXT内容读出来是 CREW?LIST?? MU2045/6?21DEC?FOC?SIN? B2337?方框?CA??LI?....
如何逐行读取?
使用SPLIT函数无法分开,请高人指点

2#

//可以使用光标跳至需要行,进行读取
path="C:\test.doc"
Index = Plugin.LazyOffice.WordOpen(path, 1)
//统计行数
Value =LazyOffice.WordStat(1,Index)
TracePrint Value
Call Plugin.LazyOffice.WordSetCursor("段", 0, 0, 0, Index)
Call Plugin.LazyOffice.WordSetCursor("字",-1,0, 1,Index)
word1=Plugin.LazyOffice.WordRead(Index)
TracePrint word1
For Value-1
Call Plugin.LazyOffice.WordSetCursor("段",1,0,0,Index)
Call Plugin.LazyOffice.WordSetCursor("字",-1,0, 1,Index)
word = Plugin.LazyOffice.WordRead(Index)
TracePrint word
Next


//操作结束关闭Word文档
Call Plugin.LazyOffice.WordClose(Index)

最后编辑hanxuexi 最后编辑于 2018-02-07 09:53:29
发新话题 回复该主题