【分享成果,随喜正能量】当你的见识多了,眼界宽了,格局大了,所有的磨难都将不再是磨难,而是助你成长的阶梯。 。
《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实践经验,全部浓缩在下面的各个教程及应用工具中: