http://zhidao.baidu.com/question/143381141.html

打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。
点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。

但完成后最后2个文件也会会有问题，手动修改一下就行了。


Sub MyPg()

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oNewDoc As Word.Document
    Dim oRange As Word.Range
    Dim lCurrentStart As Long
    Dim lCurrentEnd As Long
    Dim lDocumentEnd As Long
    Dim lOutputCount As Long
    
    lOutputCount = 0
    
    Set oWord = GetObject(, "Word.Application")
    Set oDoc = ActiveDocument
    
    oDoc.Select
    lCurrentStart = oWord.Selection.Start
    lCurrentEnd = lCurrentStart
    lDocumentEnd = oWord.Selection.End
    
    oWord.Selection.Collapse wdCollapseStart
    
    Do While (lCurrentEnd < lDocumentEnd)
        oWord.Browser.Target = wdBrowsePage
        oWord.Browser.Next
        oWord.Browser.Next
        oWord.Browser.Next
        oWord.Browser.Next
        lCurrentEnd = oWord.Selection.End
        
        If (lCurrentStart = lCurrentEnd) Then
            lCurrentEnd = lDocumentEnd
        End If
        
        Set oRange = oDoc.Range(lCurrentStart, lCurrentEnd)
        
        Set oNewDoc = oWord.Documents.Add
        oRange.Copy
        oNewDoc.Range(0, 0).Paste
        
        lOutputCount = lOutputCount + 1
        oNewDoc.SaveAs FileName:="d:\" & lOutputCount & ".doc"
        oNewDoc.Close
        
        lCurrentStart = lCurrentEnd
    Loop


End Sub

本文转自火地晋博客园博客，原文链接：http://www.cnblogs.com/yelaiju/archive/2012/02/05/2338699.html，如需转载请自行联系原作者