vb6.0 怎样实现 WORD 的查找功能函数

Question

比如word中有 文本如下
# 名词一
名词一的解释
#名词二
名词二的解释；我在text中输入名词一，就能打开word并将找到该名词

Answer 1

这个不好实现。因为你用以自己的程序打不开Word文档（它的格式只有Word能打开），给Word发送信息让他查找的话，也没有那样的命令行参数。
你最好把Word文档中的内容复制到你的程序文本框（例如Text1）中，输入查找内容的文本框Text2，命名查找按钮为Command1，然后代码可以这样写：
Private Sub Command1_Click()
Dim i As Long
For i = Text1.SelStart + Text1.SelLength To Len(Text1.Text)
If Mid(Text1.Text, i + 1, Len(Text2.Text)) = Text2.Text Then
Text1.SetFocus
Text1.SelStart = i
Text1.SelLength = Len(Text2.Text)
Exit Sub
End If
Next
MsgBox "已搜索指定区域"
End Sub
'此功能是从光标处开始向下找的查找功能，找到后自动选定。