如何把子文件夹内的txt文件批量转换成docx文档

zzpsx

如何把子文件夹内的txt文件批量转换成docx文档.zip (4.06 KB, 下载次数: 4)

2024-3-13 15:15 上传

点击文件名下载附件

能用代码么最好。

roserice

用PQ可以做，

tanglf188

请参考

gwjkkkkk

Option Explicit
Option Compare Text
Function vFilesListDg(ByVal strPath$, ByRef ar(), Optional ByRef iGroup&, _
    Optional ByVal strExtension$ = "*", Optional ByVal strExclude As String = "")
   
    Dim Fso As Object, objFold As Object, vFile, vFold
   
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set objFold = Fso.GetFolder(strPath)
    For Each vFile In objFold.Files
        If Fso.GetExtensionName(vFile.Name) Like strExtension Then
            If vFile.Name <> strExclude And Not vFile.Name Like "~$*" Then
                iGroup = iGroup + 1
                ReDim Preserve ar(1 To 3, 1 To iGroup)
                ar(1, iGroup) = objFold.Path & "\"
                ar(2, iGroup) = vFile.Path
                ar(3, iGroup) = Left(vFile.Name, InStrRev(vFile.Name, ".") - 1)
               
            End If
        End If
    Next
   
    For Each vFold In objFold.subfolders
        vFilesListDg vFold, ar, iGroup, strExtension, strExclude
    Next
End Function
Sub test()
    Dim wdApp As Object, strFileName$, strPath$, ar(), i&, wdFormatXMLDocument
   
    Call vFilesListDg(ThisWorkbook.Path, ar(), i, "txt", ThisWorkbook.Name)
    If i = False Then Exit Sub
   
    Application.ScreenUpdating = False
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
   
    strPath = ThisWorkbook.Path & "\"
   
    For i = 1 To UBound(ar, 2)
        With wdApp.documents.Open(ar(2, i))
            .SaveAs ar(1, i) & ar(3, i), wdFormatXMLDocument
            .Close
        End With
    Next i
   
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

cai2532

这个不错，值得参考

zzpsx

gwjkkkkk 发表于 2024-3-13 20:52
请参考。。。

太厉害了，谢谢高手。要有代码能在word中使用就更好了。不过用word代码，速度可能会大大变慢，还可能会死机。

gwjkkkkk

zzpsx 发表于 2024-3-14 07:53
太厉害了，谢谢高手。要有代码能在word中使用就更好了。不过用word代码，速度可能会大大变慢，还可能会死 ...

word中是可以的，速度应该只快不慢

zzpsx

gwjkkkkk 发表于 2024-3-14 11:49
word中是可以的，速度应该只快不慢

可否告知word代码

gwjkkkkk

zzpsx 发表于 2024-3-14 12:05
可否告知word代码

回家帮你写。。。