返回首页

Word文档批量转换成txt的方法(支持word2007)

时间:2012-08-02 13:25来源:优渡科技
  

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.comruanwen/20120802526.html  转载请注明。


 

------分隔线----------------------------
推荐内容