VB调用Word，求查询数据库然后添加的方法

Question

PumpDoc.ActiveWindow.Selection.InsertAfter是不是只能添加String和变量？
怎么才能在文档中添加一个通过SQL语句筛选出来的数据（记为Paragraph1）
另：如果可以的话再告诉我怎么才能在已存在的Paragraph1后再添加通过SQL语句查询的结果。说白了，所希望实现的过程为：
  Cmd_Click一次给已存在的Word文档添加一组数据，并且每一次添加都各成段落。
谢谢！

Answer 1

Dim mydoc As Word.Document
Dim thisrng As Word.Range每次按下command1给你的文档添加一个新段
并置为当前范围thisrng
然后在该范围添加你要添加的内容
Private Sub Command1_Click()
   Set thisrng = mydoc.Paragraph.Add().Range  
   thisrng.InsertAfter"你要添加的查询结果，注意类型转换"    
End Sub