主题：[求助]把Word拆分成一页一个文档

请老师给改改，每一页怎样复制？

谢谢！

Dim app As New MSWord.Application    '原文件
Dim wapp As New MSWord.Application     '拆分文件
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim y = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
    'msgbox(y)   'Word页数
    For i As Integer = 1 To y
       
        '新建拆分
        Dim missing = System.Reflection.Missing.Value
        Dim nDoc = wapp.Documents.Add(missing, missing, missing, missing)
        nDoc.SaveAs(ProjectPath & "Word拆分-" & i & ".doc")
        'app.quit

        app.ActiveWindow.Selection.WholeStory
        app.ActiveWindow.Selection.copy      '复制
        wapp.ActiveWindow.Selection.WholeStory
        wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
       
        app.quit
    Next
    app.quit
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try