优度网 - 官方网站

Word2000和2003版本可以用转换向导将word批量转换成TXT，可是2007和更高版本已经将转换向导的功能去掉了。

那么，如果您安装的是2007版本的word，如何批量将DOC和DOCX文件转换成TXT的呢？

方法如下：

打开优度网： www.uducn.com 查找宏代码。
新建一个word文件，打开
1、创建宏：点开视图—宏—录制宏—停止录制
2、替换宏：点开视图—宏—查看宏—选中刚才新建的宏—编辑—用以下代码替换自动生成的代码
Sub Doc2txt()
Dim myDialog As FileDialog
Dim oFile As Variant
Dim oDoc As Document

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog
.Filters.Clear
.Filters.Add "WORD 97-03 文档", "*.doc", 1
.AllowMultiSelect = True

If .Show <> -1 Then Exit Sub

Application.ScreenUpdating = False

For Each oFile In .SelectedItems
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
oDoc.SaveAs FileName:=Left(oFile, Len(oFile) - 3) & "txt", FileFormat:=wdFormatText
oDoc.Close
Next

Application.ScreenUpdating = True
End With
End Sub
 
Sub Docx2txt()
Dim myDialog As FileDialog
Dim oFile As Variant
Dim oDoc As Document

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog
.Filters.Clear
.Filters.Add "WORD 文档", "*.docx", 1
.AllowMultiSelect = True

If .Show <> -1 Then Exit Sub

Application.ScreenUpdating = False

For Each oFile In .SelectedItems
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
oDoc.SaveAs FileName:=Left(oFile, Len(oFile) - 4) & "txt", FileFormat:=wdFormatText
oDoc.Close
Next

Application.ScreenUpdating = True
End With
End Sub

3、使用宏：点开视图—宏—查看宏—选中宏—运行—浏览需要转换的文件，即可批量自动转换了

可以把需转换的文件放在同一文件夹里

本文原创优度网：http://www.uducn.com/ruanwen/20120802526.html  转载请注明。