Word中对象方法（Methods）的理解及示例（下）

【分享成果，随喜正能量】当你的见识多了，眼界宽了，格局大了，所有的磨难都将不再是磨难，而是助你成长的阶梯。 。

《VBA之Word应用》（10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容为第一章部分：Word中对象方法（Methods）的理解及示例（下）

第五节Word中对象方法（Methods）的理解及示例

Range方法应用示例，我们看下面的代码：
Sub mynzI() 'Document.Range方法

    Dim r As Range

    MsgBox ActiveDocument.Name

    ActiveDocument.Range(Start:=0, End:=Selection.End).Bold = True

    Set r = ActiveDocument.Range(Start:=0, End:=Selection.End)

    r.Case = wdUpperCase

End Sub

代码截图：

代码讲解：

①MsgBox ActiveDocument.Name 提示给用户当前活动文档的名称

②ActiveDocument.Range(Start:=0, End:=Selection.End).Bold = True

将当前文档从开始到光标所在处字体加粗

③Set r = ActiveDocument.Range(Start:=0, End:=Selection.End)

     r.Case = wdUpperCase

将当前文档从开始到光标所在处字符变成大写

代码的执行效果：执行前的文档：

执行宏：

执行效果：

3方法的特征

从以上的讲解及示例中我们发现，方法通常都带有参数，以限定如何执行操作。如上述示例中range对象范围的确定Range(Start:=0, End:=Selection.End)，下面的示例中，我再给出将活动文档打印前三页的代码。

Sub mynzJ() 'Document.PrintOut方法范围打印

     ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1-3"

End Sub

代码截图：

代码的执行效果：

我们先将“Doc 001文档”扩展到四页：

执行程序（我选择了PDF打印），我们看执行后的结果：

今日内容回向：

  1 如何理解Word中对象的方法？

2Word中对象的方法有什么特征？

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

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