【分享成果，随喜正能量】做人智商不高沒關系，情商不高也問題不大，但做人的格局一定要大。說白了，你可以不聰明，也可以不懂交際，但一定要大氣。如果一點點挫折就讓你爬不起來，如果一兩句壞話就讓你不能釋懷，如果動不動就讨厭人憎恨人，那格局就太小了。做人有多大氣，就會有多成功。因為胸懷，才是成功者的标志。

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

段落Paragraph對象代表所選内容、範圍或文檔中的一個段落。段落對象是Paragraphs集合的成員，包含所選内容、範圍或文檔中的所有段落。這節我們仍是先從這個對象的屬性開始講解。

該屬性返回或設置一個WdParagraphAlignment常量，該常量表示指定段落的對齊方式。

語法：expression.Alignment

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

WdParagraphAlignment常量值：

wdAlignParagraphCenter 1 居中對齊。

wdAlignParagraphDistribute 4 段落字符被分布排列，以填滿整個段落寬度。

wdAlignParagraphJustify 3 完全兩端對齊。

wdAlignParagraphJustifyHi 7 兩端對齊，字符高度壓縮。

wdAlignParagraphJustifyLow 8 兩端對齊，字符輕微壓縮。

wdAlignParagraphJustifyMed 5 兩端對齊，字符中度壓縮。

wdAlignParagraphLeft 0 左對齊。

wdAlignParagraphRight 2 右對齊。

wdAlignParagraphThaiJustify 9 按照泰語格式布局兩端對齊。

• 某些 WdParagraphAlignment 常數，具體取決于您所選擇或安裝的語言支持 (例如美國英語)。

這個屬性返回或設置首行或懸挂縮進的值 (以字符為單位)。 用正值設置首行縮進，并使用一個負值設置懸挂縮進。

語法：expression. CharacterUnitFirstLineIndent

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

這個屬性返回或設置指定段落的左縮進值 (以字符為單位)。

語法：expression. CharacterUnitLeftIndent

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

該屬性該屬性返回或設置指定段落的右縮進量（以字符為單位）

語法：expression. CharacterUnitRightIndent

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

該屬性返回或設置首行的行或懸挂縮進的值 (以磅為單位)。 用正數設置首行縮進的尺寸，用負數設置懸挂縮進的尺寸

語法：expression. FirstLineIndent

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

下面我們将給大家介紹一段代碼，這段代碼将首先為活動文檔的首段設置 1 英寸的首行縮進。然後為活動文檔的第二段設置 0.5 英寸的懸挂縮進。 InchesToPoints 方法用來将英寸轉化為磅值。

下面我們看我給出的代碼：

Sub mynzD()

'為活動文檔的首段設置 1 英寸的首行縮進。

ActiveDocument.Paragraphs(1).FirstLineIndent = InchesToPoints(1)

'為活動文檔的第二段設置 0.5 英寸的懸挂縮進。

ActiveDocument.Paragraphs(2).FirstLineIndent = InchesToPoints(-0.5)

End Sub

代碼截圖：

代碼解讀：（略）

代碼的運行，在代碼運行前，我們先看看界面的截圖：

代碼運行後：

今日内容回向：

1 段落對象的Alignment屬性及CharacterUnitFirstLineIndent 屬性、CharacterUnitLeftIndent 屬性、CharacterUnitRightIndent 屬性、FirstLineIndent 屬性的意義是什麼？

2 如何利用上述屬性設置文檔的段落？

本講内容參考程序文件：Doc 004文檔.docm

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

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