word vba如何遍历目录下所有文件及子目录

iizu

各位好，现在有个问题希望高手帮忙解决一下
要求1：把一个文件夹下（包括子目录）所有txt转换成为word
要求2：对文本中含有字符“●”的行，自动加粗，字体设为16号
希望能用word vba实现，谢谢大家

iizu

第一个问题已经解决了，请教第二个怎么处理，如何遍历第一段内容，并查找关键词，请给出关键代码即可，谢谢！

iizu

ok,自己解决了

huguifang

楼主是如何解决的呢？能否分享

brucehxd

楼主跪求分享遍历方法！！！

13907933959

brucehxd 发表于 2017-9-25 19:12
楼主跪求分享遍历方法！！！

网友好！

Sub 循环遍历文件夹()

    On Error Resume Next

    Dim fd As FileDialog, i As Long,doc As Document, p As String, t As Long, s As Long, j As Paragraph

    Set fd =Application.FileDialog(msoFileDialogFolderPicker)

    If fd.Show = -1 Then p =fd.SelectedItems(1) Else Exit Sub

    Set fd = Nothing

    If MsgBox("是否处理文件夹 " & p & "?", vbYesNo + vbExclamation, "循环遍历文件夹")= vbNo Then Exit Sub

    With Application.FileSearch

        .NewSearch

        .LookIn = p

        .SearchSubFolders = True

        .FileName = "*.doc"

        If .Execute > 0 Then

            For i = 1 To.FoundFiles.Count

                Set doc =Documents.Open(FileName:=.FoundFiles(i))

                '此处加入你要处理的………………………………………

                '………………………………………………………………

                '…………

                doc.Close savechanges:=wdSaveChanges

            Next i

            MsgBox "总共处理了" & .FoundFiles.Count& " 个文件！", vbOKOnly + vbExclamation,"doc_process"

        Else

            MsgBox "未找到要处理的文件！", vbOKOnly +vbCritical, "doc_process"

        End If

    End With

End Sub

jiminyanyan

13907933959 发表于 2017-9-27 10:27
网友好！

Sub 循环遍历文件夹()    On Error Resume Next    Dim fd As FileDialog, i As Long,doc As ...

FileSearch 只能用于2003,现在用2003的人应不多了...

duquancai

13907933959 发表于 2017-9-27 10:27
网友好！

Sub 循环遍历文件夹()    On Error Resume Next    Dim fd As FileDialog, i As Long,doc As ...

老是抱住03版爱不释手，其实没有必要

13907933959

jiminyanyan 发表于 2017-10-3 09:26
FileSearch 只能用于2003,现在用2003的人应不多了...

前辈好！

实在惭愧！因水平未到，高版本的我也确实不会，对这个我都只是“知其然，不知其所以然”！我也是在论坛上无数次得到大家的帮助，一直心存感激，所以看到我知道的就贴出来，看别人能否用得上！

13907933959

duquancai 发表于 2017-10-3 09:42
老是抱住03版爱不释手，其实没有必要

杜前辈好！
我的小白水平您知道的，03版对您来说可能太老了，对我来说，它的功能好多都还不熟悉，再一个医院的东西都是在XP的操作系统和03版的office平台上建立的，所以对03版“爱不释手”，一是水平有限，二也确实是有所顾虑！