【word文档插入新段落】在Word中利用VBA代码，使用InsertParagraphAfter方法插入新段落

大家好，今天我们将继续讨论VBA代码解决方案的第142课：InsertParagraphAfter方法在word VBA中的应用。在上一节的WORD VBA介绍中，通过简单的VBA语句、文件打开方法、段落格式设置方法和今天的InsertParagraphAfter方法，结合了几个知识点。例如，必须先创建一个新文档，然后插入同一个段落10次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列。

在说明之前，我们先来看一下InsertParagraphAfter方法的应用程序。

InsertParagraphAfter方法在范围之后插入段落标签。

expression . insert paragraphafter的语法

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

说明：应用此方法后，范围将扩展以包含新段落。

Sub mynzInsertBeforekk()

Set myRange=Ac(0，0)

With myRange

.InsertBefore“如何学习VBA”

.Paragra=wdAlignParagraphCenter

.InsertParagraphAfter

End With

End Sub

上面的代码在头上添加“VBA学习方法”、单个段落，并将其设置为中间对齐。

代码屏幕截图：

运行之前的屏幕截图：

运行后：

我们再看一下本文档开头的示例要求。首先，必须创建一个新文档，并插入同一个段落10次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列。代码如下：

Sub mynzInsert()

Set myDoc=Documen

With myDoc。Content

For I=1到9

.InsertAfter 'VBA代码解决方案' I

.InsertParagraphAfter

Next I

.InsertAfter 'VBA代码解决方案' I

End With

mydoc . pagese=wdalignverticaljustify

End Sub

屏幕截图：

操作：

很好。今天的内容在这里。今天的内容如下。

1 InsertParagraphAfter方法的含义是什么？

如何设置第2段的格式？