《如何将一个WORD文档分割成几个文件.docx》由会员分享，可在线阅读，更多相关《如何将一个WORD文档分割成几个文件.docx（2页珍藏版）》请在三一办公上搜索。
1、如何将一个WORD文档分割成几个文件如何将一个WORD文档分割成几个文件？ office 文档分割成几个文件？ 打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。 点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。 Sub 分割WORD 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
2、 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 (lCur
3、rentEnd lDocumentEnd) oWord.Browser.Target = wdBrowsePage oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next oWord.Browser.Next 这行分割几页就复制几次，这里是10页割成一个文件保存 lCurre
4、ntEnd = 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:=R: & lOutputCount & .doc 这里更改输出保存盘符，我的是R:盘根目录 oNewDoc.Close lCurrentStart = lCurrentEnd Loop End Sub
