word分割几个文 word文档中间分割线
如何将一个word文档分割成多个word文档
1、打开需要拆分的文档2、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示1级标题——点击显示文档4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分5、双击图中所示文本标志。
6、会自动弹出新word窗口，新word文档为全部第一章节内容，点击保存即可。
然后重复上面步骤，将其他章节进行拆分。
如何将一个word文档按页分割成多个word文档？
Range;End Sub4、键入F5运行.Copy oSrcDoc、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档.GetParentFolderName(strSrcName)，看到“完成；.＂ & fso; & nIndex & ".Windows(1).Activate Application.Browser.Target = wdBrowsePage Application。
5！”结束， 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.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso!＂page".GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox ＂结束.Paste oNewDoc.SaveAs strNewName oNewDoc, _ fso.GetBaseName(strSrcName) & ＂_".Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks(＂\.Browser;)1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）;2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String 展开
如何将一个word文档按页拆分成多个文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）;键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject(＂Scripting.FileSystemObject＂)Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks(＂\page＂).Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & ＂_＂ & nIndex & ＂.＂ & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox ＂结束！＂End Sub键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。
消除分节符的方法：注意事项分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
怎么将word按页面分割为几个文档
打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。
点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。
但完成后最后2个文件也会会有问题，手动修改一下就行了。
Sub MyPg()Dim oWord As Word.ApplicationDim oDoc As Word.DocumentDim oNewDoc As Word.DocumentDim oRange As Word.RangeDim lCurrentStart As LongDim lCurrentEnd As LongDim lDocumentEnd As LongDim lOutputCount As LonglOutputCount = 0Set oWord = GetObject(, ＂Word.Application＂)Set oDoc = ActiveDocumentoDoc.SelectlCurrentStart = oWord.Selection.StartlCurrentEnd = lCurrentStartlDocumentEnd = oWord.Selection.EndoWord.Selection.Collapse wdCollapseStartDo While (lCurrentEnd oWord.Browser.Target = wdBrowsePageoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextlCurrentEnd = oWord.Selection.EndIf (lCurrentStart = lCurrentEnd) ThenlCurrentEnd = lDocumentEndEnd IfSet oRange = oDoc.Range(lCurrentStart, lCurrentEnd)Set oNewDoc = oWord.Documents.AddoRange.CopyoNewDoc.Range(0, 0).PastelOutputCount = lOutputCount + 1oNewDoc.SaveAs FileName:=＂d:\＂ & lOutputCount & ＂.doc＂oNewDoc.CloselCurrentStart = lCurrentEndLoopEnd Sub