跪求大神！！！合并多个txt的文件名汇入一个新建doc！

youxianwei

跪求大神！！！合并多个txt的文件名汇入一个新建doc！


跪求大神！！！合并多个txt的文件名汇入一个新建doc！

文件名1.txt，文件名2.txt，文件名3.txt。。。。。→变成新建文档.doc里面的段落


补充内容 (2022-3-30 08:23):
感谢大家，问题已解决，我到网上找了一个bat批处理代码也可以实现目的，DIR *.*  /B >list.doc

limonet

Sub DirTxtToWord()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then MyPath = .SelectedItems(1) Else Exit Sub
    End With
    Filename = Dir(MyPath & "\*.txt")
    Do While Filename <> ""
        With CreateObject("Scripting.FileSystemObject").OpenTextFile(MyPath & "\" & Filename, 1)
            Selection.TypeText (.ReadAll)
            Selection.TypeParagraph
        End With
        Filename = Dir
    Loop
End Sub

小折哥

youxianwei

小折哥 发表于 2022-3-25 15:02

谢谢，要的是文件名作为段落，而不是文件内容作为段落哦

limonet

Sub DirTxtToWord()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then MyPath$ = .SelectedItems(1) Else Exit Sub
    End With
    Filename$ = Dir(MyPath & "\*.txt")
    Do While Filename <> ""
        Selection.TypeText (Filename)
        Selection.TypeParagraph '&#187;&#187;DD
        Filename = Dir
    Loop
End Sub

youxianwei

limonet 发表于 2022-3-25 14:49
Sub DirTxtToWord()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderP ...

谢谢感谢，我到网上找了一个bat批处理代码也可以实现目的，DIR *.*  /B >list.doc