Word中VBA代码的利用，使用InsertParagraphAfter方法插入新段落

大家好，我们今日继续讲解VBA代码解决方案的第142讲内容：在word VBA中InsertParagraphAfter方法的利用。在前几节的WORD VBA介绍中，我们讲解了一些简单的VBA语句，如何打开一个文件，如何设置段落的格式，今日讲的是一个InsertParagraphAfter方法把几个知识点给结合一下。还是以实例来讲解，我们要首先新建一个文档，并将相同的段落插入10 次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列。

在讲解之前，我们先来看看InsertParagraphAfter方法的应用：

InsertParagraphAfter 方法可以在在范围之后插入段落标记。

语法expression. InsertParagraphAfter

参数：expression 是必需的表示'Range'对象的变量。

说明:在应用此方法之后，该范围会扩展，以包含新段落。

Sub mynzInsertBeforekk()

Set myRange = ActiveDocument.Range(0, 0)

With myRange

.InsertBefore 'VBA学习方法'

.ParagraphFormat.Alignment = wdAlignParagraphCenter

.InsertParagraphAfter

End With

End Sub

上述代码会在抬头添加'VBA学习方法'，单独的一段，设置为中间对齐：

代码截图：

运行前的截图：

运行后：

我们再看看本文开始的示例要求，我们要首先新建一个文档，并将相同的段落插入 10 次。然后设置新文档的垂直对齐方式，使 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

截图：

运行：

好了，今日的内容就讲到这里了，今日内容回向：

1 InsertParagraphAfter 方法 的意义是什么？

2 如何设置段落的格式?