VBA之Word应用第三章第十节：文档Document对象的方法（三）

《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为：VBA之Word应用第三章第十节：文档Document对象的方法（三）

【分享成果，随喜正能量】166 善待这漫长又短暂的岁月，劝君莫惜金缕衣，劝君惜取少年时。世事总是无常，人生没有如果，用一颗云水禅心，过平淡充实的日子，只要且行且珍惜，人生就会无限美好；只要且行且领悟，生活就会无尽温润。

第三章 文档集合Documents对象及文档Document对象

大家好，我们继续Word VBA的讲解。这讲开始，我们进入非常重要一章的学习，文档集合Documents对象及文档Document对象。在前面的讲解中我们可以大概看出文档和文档集合在Word VBA中的作用，很多的对象都是文档对象属性的返回对象，我们通过这章的学习要掌握Word VBA的基本应用。

第十节 文档Document对象的方法（三）

大家好，我们这节继续Document对象方法的讲解，这节的内容中我们会可看到Select 方法、Undo 方法、UndoClear 方法。

1 Document.Select 方法

这个方法选择指定文档的内容。

语法：expression.Select

其中expression 是必需的。是一个代表 Document 对象的变量。

2 Document.Undo 方法

这个方法撤消最后一次操作或最后一系列操作，这些操作显示在 “撤消” 列表中。 如果撤消操作成功，则返回 True。

语法：expression.Undo (Times)

其中expression 是必需的。是一个代表 Document 对象的变量。

参数：

Times 可选 Variant 要撤消的操作的数量。

3 Document.UndoClear 方法

这个方法清除可对指定文档撤消的操作列表

语法：expression. UndoClear

该方法对应于自定义快速访问工具栏上的 "撤消" 按钮旁边的箭头时出现的项目列表。

4 Undo方法的应用实例

下面我们看看这节Undo方法的利用实例，这个实例中我们将利用Undo方法撤销两次最近的操作，然后清除掉所有的操作记录。我们先看下面的代码：

Sub mynzI()

ActiveDocument.Undo 2

If ActiveDocument.Undo = True Then

StatusBar = "已成功撤销两次操作"

End If

If MsgBox("您是否要清除所有操作的记录？", vbYesNo) = vbYes Then

ActiveDocument.UndoClear

End If

End Sub

代码截图：

代码解读：

1）ActiveDocument.Undo 2 这行代码将撤销两次最近的操作

2） If ActiveDocument.Undo = True Then

StatusBar = "已成功撤销两次操作"

End If

以上代码在检测到操作成功后在工具栏中显示："已成功撤销两次操作"

3） If MsgBox("您是否要清除所有操作的记录？", vbYesNo) = vbYes Then

ActiveDocument.UndoClear

End If

以上代码首选先和用户有个交互，是否撤销所有操作的记录，如果客户同意后我们将完成清除所有记录的工作。

下面我们看代码的运行过程：

我们先在工作表中做一下录入记录：

运行代码：

此时我们点击“是”：这时我们看到所有操作记录的清单已经被清空了

今日内容回向：

1 文档对象的Undo方法的意义是什么？

2 文档对象的UndoClear方法意义是什么？

本讲内容参考程序文件：Doc 003文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：