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

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 strFileName$, strPath$, ar(), i&
   
    Call vFilesListDg(ThisDocument.Path, ar(), i, "txt", ThisDocument.Name)
    If i = False Then Exit Sub
   
    strPath = ThisDocument.Path & "\"
   
    Application.ScreenUpdating = False
    For i = 1 To UBound(ar, 2)
        With Documents.Open(ar(2, i))
            .SaveAs ar(1, i) & ar(3, i), wdFormatXMLDocument
            .Close
        End With
    Next i
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

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

word宏，请参考。。。

zzpsx

谢谢高手把代码做成了按钮，完美转换。
我还想请教下，我直接把代码放到模块中，按下f5键，没有反应，这是为何？

gwjkkkkk

zzpsx 发表于 2024-3-15 17:27
谢谢高手把代码做成了按钮，完美转换。
我还想请教下，我直接把代码放到模块中，按下f5键，没有反应，这是 ...

按F5不知道什么意思？

zzpsx

gwjkkkkk 发表于 2024-3-15 22:02
按F5不知道什么意思？

就是运行这个代码。