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

第五节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实践经验，全部浓缩在下面的各个教程及应用工具中：