如何批量将WORD文档转为纯文本(TXT)?

xh4010

我有五百多个WORD文件，都要转成TXT文件，有什么办法批量转换？

十年磨一剑

文件、新建、本机上的模板、其他文档、转换向导，然后，一步一步按提示做下面就行了。速度比较快。

xh4010

非常感谢

tangqingfu

QUOTE:

以下是引用十年磨一剑在2006-10-27 9:18:57的发言：

文件、新建、本机上的模板、其他文档、转换向导，然后，一步一步按提示做下面就行了。速度比较快。

谢谢十年磨一剑兄！

ngcg

将以下文档存为vbs，然后复制到含doc的文件夹内，点击两下，就能完成转换工作。

Set fsObject = CreateObject ("Scripting.FileSystemObject")
myDocDir=fsObject.GetAbsolutePathName("")
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
 If LCase(Right(DocFile.Name, 3)) = "doc" 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, FileFormat
    myObject.ActiveDocument.Close
    n = n + 1
   End If
Next
If n > 0 Then
 MsgBox n & " file(s) converted!"
Else
 MsgBox "No file converted."
End If
myObject.Quit
Set myObject = Nothing

yy0011

太好用了.....刚才知道Application的中文意思。..哈哈

lo2003

按照ngcg教给的方法去做，转换后的文档都是乱码。是不是我的word缺少组件？