在处理大型文档时，您可能想知道特定文本字符串在文档的一部分中出现了多少次。

查找此信息的一种方法是创建一个宏，该宏将检查选定范围的文本以查看其中包含多少个实例。

请考虑以下宏：

Sub CountString()

Dim MyDoc As String, txt As String, t As String     MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

选择要分析的文本，然后运行宏。它将选定的文本分配给MyDoc变量（因此，实际文档中的任何内容均不受影响），然后要求您输入要查找的文本字符串。然后，使用Replace函数替换MyDoc变量中该字符串的所有实例。替换后的文本将分配给变量t。 “之前”文本（MyDoc）的长度

然后比较“之后”文本（t），并计算替换次数。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（3788）适用于Microsoft Word 97、2000、2002和2003。您可以找到用于Word（Word 2007）的功能区界面的本技巧的版本。和更高版本）在这里：

计算文本字符串的实例。