关于在同一个word文档里，怎样用vb编程使其自动换页

Question

如：
从数据库调出数据
姓名  年龄
张山   23
王五   67
我想让这两个记录保存在同一个word文档里，但
要保存在不同的两页里。

Answer 1

Private Sub Command1_Click()    Dim objDoc As Document
    Dim strFilePath As String
    
    strFilePath = "c:\1.doc"
    If Dir(strFilePath, vbNormal) = "" Then
        Exit Sub
    End If
    
    Set objDoc = GetObject(strFilePath)
    objDoc.Activate
        
    '插入分页符
    objDoc.Range.InsertBreak (wdPageBreak)
     
    objDoc.Close
    Set objDoc = NothingEnd Sub

Answer 2

谢谢了，但如果要求在同一个word文档里的每一页都
用同一个模版。那怎么办了

Answer 3

用邮件合并不就完了吗？将你的数据和要求给我，我做给你看！[email protected]