易语言怎么从word文档中读出内容写到txt文件中
.版本2.支持库eWord2000.支持库spec.程序集窗口程序集1.程序集变量对象,对象.程序集变量文档,文本型,,"0".程序集变量i,整数型.程序集变量j,整数型...
.版本 2
.支持库 eWord2000
.支持库 spec
.程序集 窗口程序集1
.程序集变量 对象, 对象
.程序集变量 文档, 文本型, , "0"
.程序集变量 i, 整数型
.程序集变量 j, 整数型
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
文件_枚举 (取运行目录 () + “\1\”, “*.doc”, 文档, )
j = 取数组下标 (文档, )
i = 1
Word程序1.创建 ()
Word程序1.显示 = 真
编辑框1.内容 = Word文档集1.内容
.判断循环首 (i < j)
Word文档集1.置程序 (Word程序1, 真)
编辑框1.内容 = Word文档集1.内容
写到文件 (“1.html”, 到字节集 (Word文档集1.内容))
Word文档集1.打开 (文档 [i])
Word文档集1.关闭 ()
Word文档集1.释放 ()
延迟 (3111)
i = i + 1
.判断循环尾 () 展开
.支持库 eWord2000
.支持库 spec
.程序集 窗口程序集1
.程序集变量 对象, 对象
.程序集变量 文档, 文本型, , "0"
.程序集变量 i, 整数型
.程序集变量 j, 整数型
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
文件_枚举 (取运行目录 () + “\1\”, “*.doc”, 文档, )
j = 取数组下标 (文档, )
i = 1
Word程序1.创建 ()
Word程序1.显示 = 真
编辑框1.内容 = Word文档集1.内容
.判断循环首 (i < j)
Word文档集1.置程序 (Word程序1, 真)
编辑框1.内容 = Word文档集1.内容
写到文件 (“1.html”, 到字节集 (Word文档集1.内容))
Word文档集1.打开 (文档 [i])
Word文档集1.关闭 ()
Word文档集1.释放 ()
延迟 (3111)
i = i + 1
.判断循环尾 () 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询