---- 在Word 6.0 或Word 7.0 中， 提 供 了 统 计 文 档 总 字 数 和 字 符 数 的 功 能， 但 在 日 常 的 工 作 中， 经 常 会 遇 到 令 人 头 痛 的 情 况： 怎 样 统 计 某 个 字 符 串 在 全 文 中 出 现 的 次 数 ？

---- Word 本 身 的 确 没 有 提 供 现 成 的 统 计 某 个 字 符 串 出 现 次 数 的 功 能， 但 您 可 以 用“ 宏” 的 方 法 来 解 决。

---- 请 按 下 列 步 骤 来 建 立“ 统 计 宏”（TimesOfString）：

---- 1 ． 选 择“ 工 具”*“ 宏”。

---- 2 ． 输 入 新 宏 的 名 字：TimesOfString， 然 后 在 说 明 框 中 输 入 提 示 内 容：“ 统 计 选 定 范 围 内 的 字 符 在 全 文 中 出 现 的 次 数”。

---- 3 ． 选 择“ 创 建” 按 钮。

---- 4 ． 在 宏 代 码 中 输 入 如 下 语 句：

If GetSelStartPos()=GetSelEndPos() Then
' 没 有 选 择 任 何 内 容
  MsgBox“Please check a string first.”
Else
  CountStr$=Selection$()

---- ' 提 取 被 选 择 的 内 容。 如 果 希 望 统 计 时 排 除 字 符 串 的 前 后 空 格， 可 以 改 为：

  CountStr$=Ltrim$(Rtrim$
(Selection$()))
  Insert CountStr$

---- ' 在 原 来 位 置 上 插 入 原 来 的 字 符 串， 用 于 撤 消 时 回 到 原 来 的 编 辑 位 置

count=0
' 预 置 计 数 变 量
StartOfDocument
' 从 文 档 开 始 处 统 计
EditFind.Find=CountStr$,.
WholeWord=0,.Format=0,.Wrap=0,.
MatchCase=0

---- ' 设 定 寻 找 字 符 串 为 选 择 内 容， 不 用 全 字 匹 配 方 式， 大 小 写 不 敏 感。 当 然 您 可 以 根 据 需 要 更 改 这 一 行 的 设 置

---- While EditFindFound()

---- ' 没 发 现 一 个 指 定 字 符 串 计 数 变 量 加1， 且 继 续 想 向 下 寻 找

   count=count+1
   EditFind
Wend
EditUndo
' 取 消 插 入 动 作， 以 便 回 到 原 来 的 编 辑 位 置
MsgBox “ 共 出 现”+Str$(count)+“ 次 ！”
EndIf

---- 5 ． 按 下Ctrl+W， 将 宏 保 存 下 来。

---- 6 ． 选 择“ 工 具”*“ 自 定 义”， 并 选 择“ 工 具 栏” 标 签。 在“ 类 别” 列 表 中 选 择“ 宏”， 然 后 在 右 边 的 宏 列 表 中 选 择“TimesOfString”， 并 将 其 拖 动 到Word 的 系 统 工 具 栏。 在“ 自 定 义” 按 钮 对 话 框 的“ 文 字 按 钮 名 称” 输 入 框 中 输 入“ 出 现 次 数”， 按 下“ 指 定” 按 钮， 关 闭 自 定 义 对 话 框。

---- 至 此， 您 就 可 以 用 简 单 的 命 令 按 钮 来 统 计 任 何 一 个 字 符 串 在 全 文 的 出 现 次 数 了。

---- （ 王 海 军）