5,139
社区成员
发帖
与我相关
我的任务
分享征思路 -- 如何不打开word文档，就能够查询其中是否包含我要查询的内容！多谢大家！
例如：
我要查询"孙子兵法"，看看在某个目录下的word文档中那几篇word文档包含这样的字符？
-----请大家赐教！
我要查询"孙子兵法"，看看在某个目录下的word文档中那几篇word文档包含这样的字符？
-----请大家赐教！
...全文
请发表友善的回复…
发表回复
X25 2002-11-05
- 打赏
- 举报
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim b As Boolean
Dim oSelection As Word.Selection
' Create an instance of Word
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Open("D:\Temp\X25.DOC")
Set oSelection = oDoc.ActiveWindow.Selection
b = True
With oSelection.Find
.Text = "A"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While b = True
b = oSelection.Find.Execute
oSelection.MoveRight Unit:=wdCharacter, Count:=1
Wend
Set oSelection = Nothing
oDoc.Close
Set oDoc = Nothing
oWord.Quit
Set oWord = Nothing
Dim oDoc As Word.Document
Dim b As Boolean
Dim oSelection As Word.Selection
' Create an instance of Word
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Open("D:\Temp\X25.DOC")
Set oSelection = oDoc.ActiveWindow.Selection
b = True
With oSelection.Find
.Text = "A"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While b = True
b = oSelection.Find.Execute
oSelection.MoveRight Unit:=wdCharacter, Count:=1
Wend
Set oSelection = Nothing
oDoc.Close
Set oDoc = Nothing
oWord.Quit
Set oWord = Nothing
