求word转txt软件(直接给下载地址(

来源：百度知道 编辑：UC知道 时间：2024/05/28 01:03:55
2楼，如果你有100个文档在10分钟内转换，是不是要找50个人帮你搞啊？

word本身就可以将doc转换成TXT，第三方软件当然不如微软自己的方便。

补充：这可不怪人家，你应该把问题说清楚，比如加个“批量”别人就不会误会了。贴段VBA代码：

Const wdFormatText = 2

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='d:\'} Where " _
& "ResultClass = CIM_DataFile")

Set objWord = CreateObject("Word.Application")

For Each objFile in colFiles
If objFile.Extension = "doc" Then
strFile = "d:\" & objFile.FileName & "." & objFile.Extension
strNewFile = "d:\" & objFile.FileName & ".txt"
Set objDoc = objWord.Documents.Open(strFile)
objDoc.SaveAs strNewFile, wdFormatText
objDoc.Close
End If
Next

o