中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: doc2txt 批量转换 上一主题 | 下一主题
matlan
初级用户




积分 87
发帖 63
注册 2008-8-23
状态 离线
『楼 主』:  doc2txt 批量转换

除转换doc外,还支持rtf、html转换
ON ERROR RESUME NEXT
Set fsObject = CreateObject ("Scripting.FileSystemObject")
myDocDir=wscript.arguments(0)
if myDocDir="" then msgbox "请把要转换的文件夹拖到该图标上",,"提示" : wscript.quit
If Not (fsObject.FolderExists(myDocDir)) Then
        MsgBox myDocDir & "源文件夹不存在,程序终止。", vbCritical, "错误"
          Wscript.Quit
End If

If InStrRev(myDocDir, "\") < Len(myDocDir) Then
        myDocDir = myDocDir & "\"
End If

Set DocFilesDir = fsObject.Getfolder(myDocDir)
Set myDocFiles = DocFilesDir.Files
Set myObject = Wscript.CreateObject("Word.Application")

n = 0
For Each DocFile In myDocFiles
    hz=LCase(Right(DocFile.Name,3))
        If hz = "doc" or hz="rtf" or hz="tml" or hz="htm" Then
                  TextFileName =myDocDir  & Left(DocFile.Name,InStrRev (DocFile.Name, ".")) & "txt"
               
                    myObject.Documents.Open DocFile.Path,,,,,,,,,,,False
                    myObject.Documents(DocFile.Path).Activate
                    myObject.ActiveDocument.SaveAs TextFileName, 2
                    myObject.ActiveDocument.Close
                    n = n + 1
           End If
            
Next

If n > 0 Then
        MsgBox n & "个文件成功转换!"
Else
        MsgBox "转换失败!"
End If
myObject.Quit
Set myObject = Nothing


2009-6-21 05:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 2 楼』:  

相关讨论:
http://www.cn-dos.net/forum/viewthread.php?tid=20764
http://www.cn-dos.net/forum/viewthread.php?tid=41001



2009-6-21 22:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: