如何用VB制作一个程序，可以搜索Word中的内容

最简单的做法,
Dim xWorkApp As Word.Application
Set xWorkApp = New Word.Application
dim xDoc as Word.Document
set xDoc = xWorkApp.ActiveDocument

xWorkApp.Selection.selectall

With xWorkApp.Selection.Find
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:="Microsoft"
End With

用CTRL+“F”不就得了

用.net开发word文件，之后只要调用搜索即可。非常方便简单