中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-07 06:24

共 48,040 主题排行 / 350,125 发帖 / 今日 1 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » [转]vbs的doc2txt

可打印版本　1,151 / 4

第1楼　electronixtar	发表于 2006-05-23 19:08
铂金会员　发帖 2,672　积分 7,493
[转]vbs的doc2txt On Error Resume Next dim iFile iFile=Wscript.Arguments.Item(0) Dim iWord,iDocument Set iWord = CreateObject("Word.Application") Set iDocument = iWord.Documents.Open(iFile) iWord.Visible = False iDocument.SaveAs Replace(iFile, ".doc", ".txt"), 2 iDocument.Close False iWord.Quit Set iDocument = Nothing Set iWord = Nothing dim objShell Set objShell = CreateObject("Wscript.Shell") objShell.Run "notepad.exe "& Replace(iFile, ".doc", ".txt")

第2楼　NaturalJ0	发表于 2006-10-18 11:06
银牌会员　发帖 533　积分 1,181
拖回家慢慢研究。

第3楼　lxmxn	发表于 2006-10-18 14:03
版主　发帖 4,938　积分 11,386
这个应该是快速打开记事本编辑文本，然后保存吧？　　　　怎么不像是"Doc2txt.vbs"啊？？

第4楼　electronixtar	发表于 2006-10-18 21:58
铂金会员　发帖 2,672　积分 7,493
Word.Application .SaveAs 另存为 txt ，然后用 notepad　打开现实结果

第5楼　plp626	发表于 2008-01-15 18:15
银牌会员　发帖 1,020　积分 2,278
还是不会用,能说详细点吗??

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023