|
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 = ""
Dim ls As new List(Of String)
Functions.Execute("递归", dlg.SelectedPath, ls)
For Each file As String In ls
If file.ToLower.EndsWith(".doc") Then
Dim doc = app.Documents.Open(file)
Dim gjzs As String = "济南|Abcdefg|test"
Dim flag As Boolean = False
For Each gjz As String In gjzs.split("|")
app.ActiveWindow.Selection.WholeStory
With app.ActiveWindow.Selection.Find
.HitHighlight(gjz, RGB(255, 255, 0), , , , , , , True)
End With
If app.ActiveWindow.Selection.Find.Execute Then flag = True
Next
If flag = False Then
Doc.close
Else
s = s & IIF(s>"", chr(13), "") & file
End If
End If
Next
If s > "" Then
MessageBox.Show("共计找到包含关键字的文档有" & s.Split(chr(13)).Length & "个,目录如下:" & vbcrlf & s,"关键字文档查找",MessageBoxButtons.OK,MessageBoxIcon.None)
app.Visible = True
Else
MessageBox.Show("没有找到包含关键字的文档","关键字文档查找",MessageBoxButtons.OK,MessageBoxIcon.None)
app.quit
End If
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
|
加好友 
发短信
Post By：2018/3/8 21:09:00 [显示全部帖子]
