主题：[求助]如何找出文档包括的字符串

如何在一个目录，目录包括好多doc和pdf文档，我如何能做到自动检索这些文档中是否包括某些字符串

不是找出某列包括的字符串，是找出文档是否报告指定的字符串。

这个有办法可以实现吗？

不是找文件名。

比如有3个doc文档，我需要查找这3个文档内容里面是否包括字符串ABC，不是3个文件名是否包括ABC。是内容。

请帮我看看，红色的代码怎么改，才能在msgbox（s）弹出包含关键字的文档目录。

Dim app As New MSWord.Application
try
    Dim dlg As New FolderBrowserDialog
    If dlg.ShowDialog = DialogResult.Ok Then
        MessageBox.Show("需要检索的文档目录是:" & dlg.SelectedPath,"提示")
    End If
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        If file.ToLower.EndsWith(".doc") Then
            Dim doc = app.Documents.Open(file)
            Dim gjz As String = Tables("说明书检索").Current("说明书关键字")
            If app.ActiveWindow.Selection.Find.Execute(gjz) = False  Then
                Doc.close
            Else
                Dim s As String = file
                For Each f1 As String In files
                    s = s & vbcrlf & f1
                Next
            End If
        End If
    Next
    mesbox(s)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

Dim app As New MSWord.Application
try
    Dim dlg As New FolderBrowserDialog
    If dlg.ShowDialog = DialogResult.Ok Then
        MessageBox.Show("需要检索的文档目录是:" & dlg.SelectedPath,"提示")
    End If
    Dim s As String = ""
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        If file.ToLower.EndsWith(".doc") Then
            Dim doc = app.Documents.Open(file)
            Dim gjz As String = Tables("说明书检索").Current("说明书关键字")
            If app.ActiveWindow.Selection.Find.Execute(gjz) = False  Then
                Doc.close
               
            Else
                s = s & IIF(s>"", vbcrlf, "") & file
            End If
        End If
    Next
    If s > "" Then
        MessageBox.Show("共计找到包含关键字的文档有count个,目录如下:" & vbcrlf & s,"关键字文档查找",MessageBoxButtons.OK,MessageBoxIcon.None)
    Else
        MessageBox.Show("没有找到包含关键字的文档","关键字文档查找",MessageBoxButtons.OK,MessageBoxIcon.None)
    End If
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

想自动统计出包含关键字文档的数量，怎么统计呢？count这块该怎么改？

        MessageBox.Show("共计找到包含关键字的文档有count个,目录如下:" & vbcrlf & s,"关键字文档查找",MessageBoxButtons.OK,MessageBoxIcon.None)

你太厉害了，不是一般的厉害。我还想怎么把这几个string放到一个集合里面去，然后统计这个集合的数量。你直接统计回车就ok了。

问题

1.现在只能输入一个关键字，如果属于多个关键字就没法识别了-----这个该怎么改？

2.找到包含关键字的文档，却只找出第一个匹配的关键字，其它的没找出。希望在文档中只要出现关键字的地方都全部自动选中。

3.如果找不到关键字的文档，会自动打开一个wps。不希望打开wps。

Dim gjzs As String = "Test|Abcdefg|test"---这是你改的

Dim gjz As String = Tables("说明书检索").Current("说明书关键字")-----这是我原来的

我本来是想在文本框里面输入关键字，比如abc，123，百度，然后这个文本框绑定到说明书检索表的说明书关键字列。

目的是希望能把所有出现关键字的地方都标注出来。

Dim gjzs As String = "Test|Abcdefg|test"---这个我把文本框输入abc|123|百度这样可以的，但是只能找到最后一个的搜索结果，比如只找到了百度，而没有找到abc和123.

请问这个该怎么处理？

试了好几遍，只指标出最后的关键字。

Dim gjzs As String = Tables("说明书检索").Current("说明书关键字")

让我先哭一会。炒股累计起来赔了4W多，4套开发版没有了。

你的代码我一句也没改，测试的结果只能查到最后一个关键字。测试肯定是有问题的。

Dim gjzs As String = "技术支持|需求"

大师，我的QQ：441276101，远程连接一下，我能给你演示一下吗？