大家好，我們今日繼續(xù)講解VBA代碼解決方案的第142講內(nèi)容：在word VBA中InsertParagraphAfter方法的利用。在前幾節(jié)的WORD VBA介紹中，我們講解了一些簡單的VBA語句，如何打開一個文件，如何設(shè)置段落的格式，今日講的是一個InsertParagraphAfter方法把幾個知識點給結(jié)合一下。還是以實例來講解，我們要首先新建一個文檔，并將相同的段落插入10 次。然后設(shè)置新文檔的垂直對齊方式，使10個段落在上邊距和下邊距之間等距排列。

在講解之前，我們先來看看InsertParagraphAfter方法的應(yīng)用：

InsertParagraphAfter 方法可以在在范圍之后插入段落標(biāo)記。

語法expression. InsertParagraphAfter

參數(shù)：expression 是必需的表示'Range'對象的變量。

說明:在應(yīng)用此方法之后，該范圍會擴展，以包含新段落。

Sub mynzInsertBeforekk()

Set myRange = ActiveDocument.Range(0, 0)

With myRange

.InsertBefore 'VBA學(xué)習(xí)方法'

.ParagraphFormat.Alignment = wdAlignParagraphCenter

.InsertParagraphAfter

End With

End Sub

上述代碼會在抬頭添加'VBA學(xué)習(xí)方法'，單獨的一段，設(shè)置為中間對齊：

代碼截圖：

運行前的截圖：

運行后：

我們再看看本文開始的示例要求，我們要首先新建一個文檔，并將相同的段落插入 10 次。然后設(shè)置新文檔的垂直對齊方式，使 10 個段落在上邊距和下邊距之間等距排列。代碼如下：

Sub mynzInsert()

Set myDoc = Documents.Add

With myDoc.Content

For I = 1 To 9

.InsertAfter 'VBA代碼解決方案' & I

.InsertParagraphAfter

Next I

.InsertAfter 'VBA代碼解決方案' & I

End With

myDoc.PageSetup.VerticalAlignment = wdAlignVerticalJustify

End Sub

截圖：

運行：

好了，今日的內(nèi)容就講到這里了，今日內(nèi)容回向：

1 InsertParagraphAfter 方法 的意義是什么？

2 如何設(shè)置段落的格式?