自动搜索你所需要的语料的小工具

我给你一个能够自动搜索你所需要的语料的小工具 我给你一个能够自动搜索你所需要的语料的小工具。 请复制下面的代码1： Public Sub Finder() '声明原始变量 Dim a$  '记录所要搜索的字符串 Dim count_ '记录字符串出现的次数 '使用通配符 Selection.Find.ClearFormatting     With Selection.Find         .Text = ""         .Replacement.Text = ""         .Forward = True         .Wrap = wdFindAsk         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = False         .MatchAllWordForms = False         .MatchSoundsLike = False         .MatchFuzzy = False         .MatchWildcards = True     End With     Selection.Find.Execute     '光标移至文档开始 Selection.HomeKey Unit:=wdStory '显示输入对话框，将需要搜索的字符串赋给变量a$ a$ = WordBasic.[InputBox$]("查找一个词并将上下文复制在文挡2上。请填入欲找的词", "查找") WordBasic.EditFind Find:=a$ '开始搜索操作循环 While WordBasic.EditFindFound()  '如果发现目标，则开始下面的操作       count_ = count_ + 1      '计数器加一       WordBasic.SentRight 1    '下面三句：选中字符串所在的一行       WordBasic.SentLeft 1       WordBasic.SentRight 1, 1       WordBasic.EditCopy        '复制该行入剪贴板       WordBasic.NextWindow      '将焦点转移至下一个Word文档       WordBasic.Insert "  "      '插入两个空格       WordBasic.EditPaste        '粘贴剪贴板的       WordBasic.InsertPara      '换行       WordBasic.NextWindow      '回到原来的Word文档       WordBasic.CharLeft 1       WordBasic.CharRight 1       WordBasic.SentRight 1       WordBasic.EditFind Wend  '循环结束 '在文档中输出搜索结果 WordBasic.NextWindow  '将焦点转移至下一个Word文档 WordBasic.InsertPara  '换行 WordBasic.Insert "[包含"      '以下七句：输出字符串出现的次数 WordBasic.Insert "" + Chr(-24144) + "" WordBasic.Insert a$ WordBasic.Insert "" + Chr(-24143) + "" WordBasic.Insert "的出现次数:" WordBasic.Insert Str(count_) WordBasic.Insert "]" WordBasic.NextWindow  '将焦点转移至下一个Word文档 End Sub 以上为源代码。接下来请您打开Word中的“工具——宏——宏”宏编辑器: 在菜单中选择创建（或者编辑），键入宏文件的名字：finder，系统会弹出一个编辑框： 选中右边编辑框中自动生成的命令语句（如图），将上面的代码粘贴到编辑框中（覆盖所选的命令语句），关闭编辑框，退出回到Word编辑框。 现在你的Word中的宏就具有了查找语料的功能了。现在可以调入一个电子文本（比如一篇小说），然后打开一个空白文件（用于存放寻找到的语料）。将光标停留到文件的开始部分，点击Word中的工具——宏——宏——运行，选择finder，系统会打开一个对话框，要求使用者填入所需要搜索的关键词，例如： 当关键词填入并确定之后，宏开始运行，它自动在电子文本中搜寻包含指定关键词的语句，并将这些语句复制到另一个已经打开的空白文档中。运行结束，便可以得到这一文本中所指定的包含特定关键词的所有语句。这个宏命令不仅可以查找包含特定的词的句子，也可以查找包含特定的两个词的句子，例如“连……也”，“是……的”，“不但……而且”等。只要在查找的对话框中所输入的需要查找的两个词之间输入一个星号（半角状态）即可，例如“连*也”“是*的”“不但*而且”即可。 具体的操作介绍和图片说明（计算机上的实际显示结果）请参看拙作《语言研究方法导论》3.2.2“语料库的利用”。