WORD怎么自动查找带有相同汉字的短语归类一起?例如下面的文档,只查找括号内的汉字.“?”代表任意字符（有可能是汉字,但不需查找）.“*”代表数字或字母.即只查找括号内汉字,外面的汉字

WORD怎么自动查找带有相同汉字的短语归类一起?例如下面的文档,只查找括号内的汉字.“?”代表任意字符（有可能是汉字,但不需查找）.“*”代表数字或字母.即只查找括号内汉字,外面的汉字
WORD怎么自动查找带有相同汉字的短语归类一起?
例如下面的文档,只查找括号内的汉字.
“?”代表任意字符（有可能是汉字,但不需查找）.
“*”代表数字或字母.
即只查找括号内汉字,外面的汉字不查找,归类时要带上这个汉字的一整条内容.
?（外国人*）?
?（社会人*）?
?（中国人*）?
?（美国人*）?
?（中间*）?
按顺序查找带相同汉字的短语归类后 如下：
外
?（外国人*）?
国
?（外国人*）?
?（中国人*）?
?（美国人*）?
人
?（外国人*）?
?（社会人*）?
?（中国人*）?
?（美国人*）?
?（人间*）?
社
?（社会人*）?
会
?（社会人*）?
中
?（中国人*）?
?（中间*）?
美
?（美国人*）?
间
?（中间*）?
?（人间*）?
补充：举例的原文档内容漏了下面一行
?（人间*）?（在举例的分类完成文档里是有的.）
懂VB代码的请帮助一下吧,代码请发至[email protected]
第一次在百度知道问问题,以前都是只搜索的.解决问题后,追加150分再采纳答案.请帮忙吧.

WORD怎么自动查找带有相同汉字的短语归类一起?例如下面的文档,只查找括号内的汉字.“?”代表任意字符（有可能是汉字,但不需查找）.“*”代表数字或字母.即只查找括号内汉字,外面的汉字
instr 可以实现你想要的功能.
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置
InStr( [start,] string1,string2 [,compare] )
start：从哪里开始搜索
string1：被搜索的内容
string2：要搜索的内容
具体代码没法写.因为我也不清楚你想要实现的是什么样子的.
举个例子
段1：123
段2：234
段3：456
段4：567
.
段N：...
假如要找“3”
dim A as string
dim B as integer
open 文件名 for input as #1.