返回首頁
當前位置: 優度網 > 文案策劃 >

Word文檔批量轉換成txt的方法(支持word2007)

時間:2012-08-02 13:25來源:優渡科技
  

Word2000和2003版本可以用轉換向導將word批量轉換成TXT,可是2007和更高版本已經將轉換向導的功能去掉了。

那么,如果您安裝的是2007版本的word,如何批量將DOC和DOCX文件轉換成TXT的呢?

方法如下:

打開優度網: www.dypfhh.tw 查找宏代碼。
新建一個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.dypfhh.tw/ruanwen/20120802526.html  轉載請注明。


 

------分隔線----------------------------
推薦內容
? 澳洲幸运8开奖号码查询