使用InsertParagraphAfter方法插入新段落 paragraph

大家好，我们今日继续讲解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
截图：