添加段落

使用Paragraphs集合的Add方法将新的空白段落添加到文档中。下面导入win32com包，创建Word应用并使之可见。打开D盘下的文档test3.docx。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim rng As Range
  Set rng = doc.Paragraphs(3).Range
  Dim pg As Paragraph
  Set pg = doc.Paragraphs.Add(rng)
  Debug.Print doc.Paragraphs.Count
End Sub

打开文档如图4-1所示。

Document Image

图4-1 打开文档test3.docx

使用不带参数的Add方法，在文档最后面添加一个段落，在文档最后添加了一个段落标记。使用带参数的Add方法，在文档的第2个段落前添加一个段落，在第2个段落前添加了一个段落标记。

注意，Add方法指定Range参数的值为第2个段落的字符序列时，使用了doc.Paragraphs(2)的索引方式。每个段落对应的Paragraph对象在Paragraphs集合中都有一个索引号，按照创建的先后依次累加获取，如第1个创建的索引号为1，第2个创建的索引号为2，以此类推。当需要处理某个Paragraph对象时，先通过索引将它从集合中取出来。

使用Paragraphs对象的Count属性，可以获取文档中当前总的段落数。