----OLE 自 动 化 技 术 则 提 供 了 一 种 在 应 用 程 序 中 控 制 源 文 档 的 方 法。OLE 自 动 化 的 优 点 是， 在 单 一 的 环 境 中 工 作， 同 时 可 以 使 用 其 他 应 用 程 序 的 功 能。
----在Microsoft Office 环 境 中， 利 用Visual Basic 开 发 应 用 程 序 时， 可 以 利 用OLE 自 动 化 组 合Microsoft Office 中 的 多 个 应 用 程 序， 建 立 自 动 化 应 用 程 序。Microsoft Office 提 供 了 大 量 的 材 料， 只 需 把 它 们 拼 凑 起 来。
三、 简 单 开 发 实 例：
字 符 统 计 程 序
----有 时 候， 要 对 某 字 符 在 文 档 中 的 出 现 次 数 进 行 统 计。 要 完 成 这 一 任 务， 可 以 在Word 中 开 发 一 程 序 来 较 快 地 统 计。
----打 开 要 统 计 的 文 档 后， 在 文 本 框 中 输 入 要 统 计 的 字 符， 如“OK!”， 然 后 选 择 是 否 区 分 大 小 写， 单 击“ 确 定” 按 钮， 便 可 以 进 行 统 计 了。
----设 计 该 程 序 的 步 骤 如 下：
----1 ． 新 建 一 窗 体Userform1， 窗 体 的caption 属 性 设 置 为“ 字 符 统 计”。 窗 体 中 包 容 以 下 控 件：
----复 选 框 控 件CheckBox1 Caption = “ 区 分 大 小 写"
----命 令 按 钮 控 件CommandButton1 Caption = “ 确 定 "
----标 签 控 件Label1 Caption = “ 输 入 您 要 统 计 的 字 符："
----2 ． 在 单 击 命 令 按 钮 控 件CommandButton1 后 便 执 行 统 计 工 作， 代 码 如 下：
Private Sub CommandButton1_Click()
Dim countofappear as Integer
Selection.WholeStory
With Selection
.Find.ClearFormatting
With .Find
.Text = UserForm1.TextBox1.Text
If UserForm1.CheckBox1.Value = True Then
.MatchCase = True
Else
.MatchCase = False
End If
.Execute
End With
End With
If Not Selection.Find.Found() Then
MsgBox “ 未 找 到"
Exit Sub
End If
While Selection.Find.Found()
countofappear = countofappear ＋ 1
Selection.Find.Execute
Wend
MsgBox “ 找 到 了" ＆ countofappear ＆ “ 个"
End Sub
----讲 解： 首 先 用 语 句Selection.WholeStory 选 定 全 文。
----使 用Selection.find.execute 语 句 进 行 一 次 对 字 符 的 查 找 操 作， 如 下：
With Selection
.Find.ClearFormatting
With .Find
.Text = UserForm1.TextBox1.Text
If UserForm1.CheckBox1.Value = True Then
.MatchCase = True
Else
.MatchCase = False
End If
.Execute
End With
End With
----上 述 语 句 中 使 用Find 对 象 的ClearFormatting 方 法 作 用 是 清 除 任 何 为 进 行 查 找 或 替 换 操 作 所 指 定 的 格 式， 相 当 于“ 编 辑” 菜 单“ 查 找 和 替 换” 对 话 框 中 的“ 不 限 定 格 式” 按 钮。
----另 外，MatchCase 属 性 设 置 查 找 操 作 是 否 区 分 大 小 写。
----如 果 没 有 找 到， 则 弹 出 一 消 息 框， 告 知 没 有 找 到， 并 退 出 子 程 序， 语 句 为：
If Not Selection.Find.Found() Then
MsgBox “ 未 找 到"
Exit Sub
End If
----如 果 找 到 一 处， 然 后 进 行 下 一 次 查 找， 以 下 如 此 循 环， 每 找 到 一 次countofappear 变 量 便 加1， 来 代 表 指 定 字 符 在 文 档 中 出 现 的 次 数， 语 句 为：
While Selection.Find.Found()
countofappear = countofappear ＋ 1
Selection.Find.Execute
Wend
----在 程 序 中Selection.Find.Found() 函 数 用 来 知 道 是 否 找 到 指 定 的 字 符。
----最 后， 弹 出 一 个 消 息 框 来 告 知 字 符 在 文 档 中 出 现 的 次 数。
上一篇： 压缩被DBGIRD控件正在使用的MDB数据库
下一篇： VB中使用SQL查询语句
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
