『壹』 如何把word文件拆分成几个文件
以WPS 2019版本为例：
如需把word文件拆分成几个文件，可使用WPS2019中已自带的「文档拆分」功能：
操作步骤：
1）打开其中一份「文字（Word」文档；
2）点击「特色应用-拆分合并-拆分」；
『贰』 怎么把一个word文档分成多个
一、首先，打开word2010程序，然后打开要拆分成多个小文档的Word文档。
『叁』 一个word文件怎样拆分成几个
以WPS 2019版本为例：
如需把一个word文件怎样拆分，可使用WPS2019中已自带的「文档拆分」功能：
操作步骤：
1）打开其中一份「文字（Word」文档；
2）点击「特色应用-拆分合并-拆分」；
『肆』 Word怎么将一个文档拆分成几个小文档
以WPS 2019版本为例：
如需将一个文档拆分成几个小文档，可使用WPS2019中已自带的「文档拆分」功能：版
操作步骤：
1）打权开其中一份「文字（Word」文档；
2）点击「特色应用-拆分合并-拆分」；
『伍』 如何将一个word多页文档拆分为多个单页文档保存
1、打开word，该文档有两页，把每一页都设置一个一级标题。
『陆』 一个WORD文档自动拆分成多个文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks("\page").Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Paste oNewDoc.SaveAs strNewName oNewDoc.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束！"End Sub键入F5运行，看到“完成！”结束。2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。 如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：注意事项分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
『柒』 如何将一个word文档按页分割成多个word文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks("\page").Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Paste oNewDoc.SaveAs strNewName oNewDoc.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束！"End Sub4、键入F5运行，看到“完成！”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
『捌』 如何快速把一个Word文档拆分数据分成两个文档
以WPS 2019版本为例：
如需把一个Word文档拆分，可使用WPS2019中已自带的「文档拆分」功能：
操作步骤：
1）打开其中一份版「文字（Word」文档；
2）点击「特色应用-拆分合并-拆分」；
『玖』 一个word文档怎么拆分成多个文档
把一个word文档拆分为多个小文档的方法：1.打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。2.点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。3.粘贴如下内容Option ExplicitSub MyPg()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 200 ' 修改这里控制每隔几页分割一次Set fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndex + nSteps > nTotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps – 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub此方法适用于页码分多个文档使用。
『拾』 一个word文档怎么拆分成几个文档
一个word文档拆分成几个文档可以利用word自身的功能直接产生新建文档；
所需工具：
电脑
word文档
步骤：
1、打开需要拆分的文档，文档里面输入内容。如图所示：
未经允许不得转载：山九号 » 一个word拆分多个文件|如何将一个word文档按页分割成多个word文档
