有几十个word文档，文档多的有100多页，如何才能快速的搜索word里面的某个关键字词？

天意飞刀

有几十个word文档，文档多的有100多页，如何才能快速的搜索word里面的某个关键字词？

duquancai

遍历Word文件，打开文档，在打开的文档中查找关键词！关闭这个文档，下一个又来。。。。如此循环！！！

413191246se

楼主，你应该说明你所用Word版本，及是否会用VBA宏代码，这样，杜先生 才有可能给你编写程序；还有，查找的关键词应当举出一个例子来，找到后是否计数；找到后有什么用处。

13907933959

duquancai 发表于 2018-3-17 12:17
遍历Word文件，打开文档，在打开的文档中查找关键词！关闭这个文档，下一个又来。。。。如此循环！！！

杜前辈好！
这个我也感兴趣，期待您给一个完美的代码！

相见是缘8

这个关键词的范围就广了（中文、英文、数字、符号、它们的混杂……）要精准锁定很难，恐怕只有 duquancai  这样的大神才能搞定！

相见是缘8

昨天在网上看到一个“循环遍历文件夹，将绿色关键词替换为另外的黑色关键词”的代码，不知是那位大神写的，不知对你有不有用？。

Sub AAA()
    On Error Resume Next
    Dim fd As FileDialog, i As Long, doc As Document, p As String
    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))
                With doc.Content.Find
                   '.Font.Color = wdColorGreen
                   '.Replacement.Font.Color = wdColorBlack
                    .Execute FindText:="查找的字符", ReplaceWith:="替换的字符", Format:=True, Replace:=wdReplaceAll
                End With
                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