如何将一个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页面被拆分了，下面的一页是从拆分的地方开始的，取消方法很简单，点击菜单栏上的窗口菜单，在下拉中选择“取消拆分”就好了2.第二种是显示了双页，即左边一页，右边一页，这种情况在2003版本中是在显示比例中设置的，如图，取消方法是选择“显示比例”下拉中的整页，点击就可以取消只显示一页，再点击就会出现双页。

3.上面点击整夜出现的页面其实并不是原样，而是被缩小了，你可以通过按住Ctrl键，然后滚动鼠标滑轮调整到100%，或者直接在显示比例中设置100%，都可以恢复一个页面。

4.第三种就是我们的视图模式没有选择页面视图，可能是普通视图、web视图、大纲视图等，这些视图会造成我们的word页面比实际大小要偏大些。

恢复方法很简单，可以点击视图菜单下拉框中的“页面”，或者点击页面左下角的页面视图快捷按钮。

5.第四种则是由于页面设置和纸张大小造成的，如果你的显示比例100%时出现的是两个页面，那么可能你的纸张就不是A4的了。

修改方法是点击文件菜单下拉中的“页面设置”。

6. 然后在纸张标签中选择A4，确定就可以了。

这样word基本上就恢复正常大小和页数了

怎么样才能把word分成上下两个窗口。

Range;End Sub4、键入F5运行.Copy oSrcDoc、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档.GetParentFolderName(strSrcName)，看到“完成；.＂ & fso; & nIndex & &quot.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&quot.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) & ＂_&quot.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多页文档拆分为多个单页文档保存

下面是按页拆分word文档的程序，请参考：Option Explicit Dim oWord As Word.Application Dim oDoc As Word.Document Dim oNewDoc As Word.Document Dim oRange As Word.Range Dim iPageNumber As Integer Dim iCount As Integer Dim strTestDir As String Dim strTestFile As String Private Sub Command1_Click() Command1.Visible = False Dim lCurrentStart As Long Dim lCurrentEnd As Long Dim lDocumentEnd As Long Dim lOutputCount As Long lOutputCount = 0 "Launch Word and make it visible Set oWord = CreateObject(＂Word.Application＂) oWord.Visible = True "Open the test document Set oDoc = oWord.Documents.Open(FileName:=＂C:\ThreePageDocument.doc＂) "Find the beginning end of the document oDoc.Select lCurrentStart = oWord.Selection.Start lCurrentEnd = lCurrentStart lDocumentEnd = oWord.Selection.End "Move the insertion point to the beginning of the document oWord.Selection.Collapse wdCollapseStart Do While (lCurrentEnd "Move the insertion pointer to the bottom of this page oWord.Browser.Target = wdBrowsePage oWord.Browser.Next lCurrentEnd = oWord.Selection.End "On the last page, the start and end will be the same If (lCurrentStart = lCurrentEnd) Then lCurrentEnd = lDocumentEnd End If "Capture the Range of the current page Set oRange = oDoc.Range(lCurrentStart, lCurrentEnd) "Create a new document and copy the range to it Set oNewDoc = oWord.Documents.Add oRange.Copy oNewDoc.Range(0, 0).Paste "Release the Range so we don"t leak references Set oRange = Nothing "Save the new document and close it oNewDoc.SaveAs FileName:=＂C:\Result＂ & lOutputCount & ＂.doc＂ " You can save as another FileFormat. If so, change the " file extension accordingly. oNewDoc.Close Set oNewDoc = Nothing "Increment the output counter so we don"t overwrite this file later lOutputCount = lOutputCount + 1 "Reset the current start position lCurrentStart = oWord.Selection.End Loop End Sub