Word批量转TXT宏

最新推荐文章于 2025-05-22 16:36:39 发布

shenjiujun

最新推荐文章于 2025-05-22 16:36:39 发布

阅读量1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/shenjiujun/article/details/122861693

'====================================================
'Word批量转Txt宏
'====================================================
'Doc批量转txt
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
'禁止提示
Application.DisplayAlerts = 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
'docx批量转txt
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 文档",