《VBA之Word应用》(版权10178982),是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕"面向对象编程"讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程,是VBA中的稀缺资源,我给这套教程分归为中级教程,希望大家在VBA入门后再学习这套教程,这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章,今日内容为:VBA之Word应用第四章第二节:段落集合Paragraphs对象(二)
【分享成果,随喜正能量】256 因缘会遇时,果报还自受。"世间万物,皆有定数。你昔日种下的因,就是你来日所受的果。人与人之间的相遇,也是如此,看似偶然,实则是必然。这一生,每一个在你生命里出现的人,都有原因。。
第四章 段落集合Paragraphs对象及段落Paragraph对象
大家好,我们这章的内容是段落集合Paragraphs对象及段落Paragraph对象。在Word的相关知识点中,段落是一块重要的内容,段落是组成文档的一部分。
什么是段落呢?段落就是包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本(不包括前一个段落标记)。段落标记包含该段落的所有格式信息。当复制单词、句子和段落时,如果包含段落标记,则所有包含在段落标记中的格式信息也被复制,并在它们被粘贴到其它位置时应用于所属段落。
本章的内容的讲解仍是从对象的属性、方法来逐渐深入地讲解。
第二节 段落集合Paragraphs对象(二)
大家好,我们继续段落集合Paragraphs对象属性的讲解,上一节中,我们讲了段落的对齐及缩进和悬挂的设置,这节我们继续讲解其他的一些属性。
1 Paragraphs.Count 属性
该属性返回一个Long , 该值代表集合中的段落数。此为只读属性。
语法:expression.Count
其中expression 是必需的。一个代表 "段落" 集合的变量。
2 Paragraphs.Format 属性
该属性返回或设置一个ParagraphFormat对象, 该对象代表指定的一个或多个段落的格式。
语法:expression.Format
其中expression 是必需的。一个代表 "段落" 集合的变量。
3 Paragraphs.Last 属性
该属性返回一个Paragraph段落对象, 该对象代表段落集合中的最后一个项目。
语法:expression. Last
其中expression 是必需的。一个代表 "段落" 集合的变量。
4 Paragraphs.SpaceAfter 属性
该属性返回或设置指定段落或文本栏后面的间距 (以磅为单位) 的数量。
语法:expression. SpaceAfter
其中expression 是必需的。一个代表 "段落" 集合的变量。
5 Paragraphs.SpaceBefore属性
该属性返回或设置指定段落的段前间距 (以磅为单位)。
语法:expression. SpaceBefore
其中expression 是必需的。一个代表 "段落" 集合的变量。
6 实例:段落集合数目、格式的设置
下面我们看看上述属性的一些应用实例,在下面的实例中我们将首先显示活动文档的段数,然后将活动文档的所有段落靠左对齐,将活动文档中所有段落的段后间距设置为12 磅,将所有段落的段前间距设置为12磅,最后将活动文档中的最后一个段落设置为右对齐。
我们先看看代码:
Sub mynzA()
'显示活动文档的段数
MsgBox "当前活动文档中的段落数为:" & ActiveDocument.Paragraphs.Count
'以下示例将活动文档的所有段落靠左对齐
ActiveDocument.Paragraphs.Format.Alignment = wdAlignParagraphLeft
'将活动文档中所有段落的段后间距设置为 12 磅
ActiveDocument.Paragraphs.SpaceAfter = 12
'将活动文档中所有段落的段前间距设置为 12 磅
ActiveDocument.Paragraphs.SpaceBefore = 12
'将活动文档中的最后一个段落设置为右对齐
ActiveDocument.Paragraphs.Last.Alignment = wdAlignParagraphRight
End Sub
代码截图:

代码解读:(略)
代码的运行,在代码运行前,我们先看看当前文档的界面:


代码运行后:

代码运行后:


今日内容回向:
1 什么是段落集合对象的Count Format等属性?
2 什么是段落集合对象的SpaceAfter SpaceBefore属性?
本讲内容参考程序文件:Doc 004文档.docm

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

