【分享成果，随喜正能量】生活需要遇事有定力，臨難有靜氣，指引人生向前的新境界和凝聚作用于人生向前的新動力，在生活中完成内心的肯定，下大功夫，好态度，結善緣。與其指望遇到一個誰，不如指望自己能吸引那樣的人；與其指望每次失落的時候會有正能量出現溫暖你，不如指望自己變成一個正能量的人；與其擔心未來，還不如現在好好努力。有時即使有再多的安慰和指點也沒用，能說服和鼓勵自己的，還是隻有自己。而我能做的，隻是告訴你我們都一樣，不要怕。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容是第四章“段落集合Paragraphs對象及段落Paragraph對象”第4節：利用VBA設置文檔中行間距的方法。

大家好，我們這講繼續段落集合Paragraphs對象方法的講解，在上一講中我們講解了Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法。這一講我們繼續向下講解。

這個方法為指定段落設置單倍行距。

語法：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

這個方法為指定段落設置 1.5 倍行距。

語法：expression.Space15

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

示例：以下示例将活動文檔所有段落的行距更改為 1.5 倍行距。

1）ActiveDocument.Paragraphs.Space15

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpace1pt5

這個方法為指定段落設置 2 倍行距。

語法：expression.Space2

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

示例：以下示例将所有選定段落的行距更改為兩倍行距。

1）ActiveDocument.Paragraphs.Space2

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpaceDouble

下面我們看下面的一段代碼實例，這個實例将設置當前文檔的行間距：

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實踐經驗，全部濃縮在下面的各個教程中：

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!