vba单元格长度怎么调整（利用VBA设置文档中行间距的方法）

【分享成果，随喜正能量】生活需要遇事有定力，临难有静气，指引人生向前的新境界和凝聚作用于人生向前的新动力，在生活中完成内心的肯定，下大功夫，好态度，结善缘。与其指望遇到一个谁，不如指望自己能吸引那样的人；与其指望每次失落的时候会有正能量出现温暖你，不如指望自己变成一个正能量的人；与其担心未来，还不如现在好好努力。有时即使有再多的安慰和指点也没用，能说服和鼓励自己的，还是只有自己。而我能做的，只是告诉你我们都一样，不要怕。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第四章“段落集合Paragraphs对象及段落Paragraph对象”第4节：利用VBA设置文档中行间距的方法。

第四节 段落集合Paragraphs对象的方法（二）

大家好，我们这讲继续段落集合Paragraphs对象方法的讲解，在上一讲中我们讲解了Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法。这一讲我们继续向下讲解。

1 Paragraphs.Space1 方法

这个方法为指定段落设置单倍行距。

语法：expression.Space1

其中expression 是必需的。一个代表 "段落" 集合的变量

示例：以下示例将活动文档所有段落的行距更改为单倍行距。

1） ActiveDocument.Paragraphs.Space1

2） ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpaceSingle

第二句是利用了Paragraphs的LineSpacingRule属性，这种属性利用wdLineSpaceSingle, wdLineSpace1pt5, 或者 wdLineSpaceDouble 来设置行间距。

如：ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpaceDouble

为活动文档的所有段落设置 2 倍行距。

为了设置行间距，还可以利用Paragraphs.LineSpacing属性。这个属性返回或设置指定段落的行距 (以磅为单位)。

语法：expression. LineSpacing

2 Paragraphs.Space15 方法

这个方法为指定段落设置 1.5 倍行距。

语法：expression.Space15

其中expression 是必需的。一个代表 "段落" 集合的变量。

示例：以下示例将活动文档所有段落的行距更改为 1.5 倍行距。

1）ActiveDocument.Paragraphs.Space15

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpace1pt5

3 Paragraphs.Space2 方法

这个方法为指定段落设置 2 倍行距。

语法：expression.Space2

其中expression 是必需的。一个代表 "段落" 集合的变量。

示例：以下示例将所有选定段落的行距更改为两倍行距。

1）ActiveDocument.Paragraphs.Space2

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpaceDouble

4 实例：行间距设置

下面我们看下面的一段代码实例，这个实例将设置当前文档的行间距：

Sub mynzC()

'将活动文档所有段落的行距更改为单倍行距。

ActiveDocument.Paragraphs.Space1

'将活动文档第2段的行距更改为1.5倍行距。

ActiveDocument.Paragraphs(2).Space15

'将活动文档第4段的行距更改为2倍行距

ActiveDocument.Paragraphs(4).LineSpacingRule = wdLineSpaceDouble

'将活动文档第6段的行距更改为4倍行距

ActiveDocument.Paragraphs(6).LineSpacing = LinesToPoints(4)

End Sub

代码截图：

代码解读：（略）

下面我们测试一下代码的运行,代码运行前:

然后我们点击运行，下面为代码运行后的截图：

我们要注意下面的截图中有1倍行间距，1.5倍行间距，2倍行间距，4倍行间距,这些行间距的设置我们在实际的工作中可以有选择地加以利用：

今日内容回向：

1 段落集合对象的Space1方法、Space15方法、Space2方法的意义是什么？

2 如何利用上述方法设置文档个段落的行间距？

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

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

,