将Word文档批量转换为TXT文档

zhouhong210

使用Word如何将Word文档（doc或者docx）批量转换为相应的文件名的TXT文件，转换后不要出现乱码，不能一个一个的转换，感谢大神指导。

413191246se

楼主，可以试试使用 VBA 宏代码来批量转换。

3190496160

录制一段word文档另存为txt文档的宏，然后，价格循环，
没有附件，只能这么跟你说

gwjkkkkk

Sub TEST()
    Dim wdApp As Word.Application, wdDoc As Word.Document
    Dim strFileName$, f, p$, strRngText$

    p = ThisWorkbook.Path & "\"
    With Application.FileDialog(4)
        .InitialFileName = p
        .AllowMultiSelect = True
        If .Show Then p = .SelectedItems(1) & "\" Else Exit Sub
    End With
   
    Application.ScreenUpdating = False
    Set wdApp = New Word.Application
    For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(p).Files
       If f.Name Like "*.doc*" Then
          strFileName = FName(f) & ".txt"
          Set wdDoc = wdApp.Documents.Open(f.Path)
             With wdDoc
                strRngText = .Content.Text
                Open strFileName For Output As #1
                Print #1, strRngText
                Close #1
             End With
             MsgBox wdDoc.Name
          wdDoc.Close False
       End If
    Next
        
    wdApp.Quit
    Set wdApp = Nothing: Set wdDoc = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub
Function FName(FileName As Variant) As String '取名称
   Application.Volatile
   FName = Left(FileName, InStrRev(FileName, ".") - 1)
End Function

gwjkkkkk

帮楼主模拟了一下，通过EXCEL操作word实现，请参考附件，建议楼主以后上传附件。。。

梧叶沙沙

可以试试插件，Word魔方~

zhouhong210

word魔方在哪儿下载

zhouhong210

word如何转换为excel？

梧叶沙沙

zhouhong210 发表于 2023-2-27 16:29
word魔方在哪儿下载

这里https://www.vbashuo.top/wordtool

梧叶沙沙

zhouhong210 发表于 2023-2-27 16:29
word魔方在哪儿下载