如何在一个文档中查找某个单词？急急急诊！！！！！！

[gaojier]

[King]

遍历整个文件。不过有函数专门做这个功能。

[SunnyChen]

首先，得到要查找单词的长度，然后从第一个字符起，选择相同长度的内容，比较是否相同，如不同则，起点先后移一个字符，继续选择比较

[long408]

用mid函数

[Un1]

另一个方法是把它放到RichTextBox中然后调用Find方法。

[Truman]

Instr() Function can return the position where the word located in
the document.

[grassdog]

只要把文件逐行（LINE INPUT）或一下读到一个大字符串中，然后用INTSR判断这个串中是否含有某个子字符串就行了。如果返回不是0,则说明含有；返回是0,说明不含。可以参看帮助。

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。

' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)

' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)

' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。

MyPos = Instr(1, SearchString, "W") ' 返回 0。

[Janven]

Dim StrAll as String
Dim Fnum as Integer
Dim Positions as Long

Fnum = FreeFile
Open App.Path & "your filename" For Binary As #Fnum
StrAll= Space$(LOF(Fnum))
Get #Fnum, , StrAll
Positions = InStr(StrAll, StrFind )
其中StrFind 是你需查找的单词。