如何拆分word使每页生成一个新文件,且重新命名?
1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);2、键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;3、粘贴下面的代码,按照指定页数拆分:Option ExplicitSub SplitEveryFivePagesAsDocuments()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 Sub4、键入F5运行,看到“完成!”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
word怎么把一个表格分成两个?
不知道你是要连表格还是拆分表格?通常,一页满时,表格会自动转入下一页。
表格内容根据需要考虑断行与否:点表格右键——表格属性——行——允许跨页断行(勾选)——确定。
如果要拆分为两个独立表格:光标置于要拆分表格的行上——菜单栏——表格——拆分表格。
表头内容“复制——粘贴”就行。
有很多WORD文档,每个文档有2到10页不等,想要把所有WORD都按...
等候几分钟.Bookmarks(".新建一个WORD文档,命名后保存到和要合并的1000多篇文档一个文件夹里。
2.Activate Application, strNewName As String Dim oRange As Range Dim nIndex As Integer;Scripting;2,请使用下面的代码,其它步骤和原来那个方案相同。
Option ExplicitSub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String.Path MyName = Dir(MyPath & "\, nTotalPages As Integer.Paste i = i + 1 wb.Close False End If MyName = Dir Loop Application,即可完成合并1.Content.WholeStory Selection;_" & nIndex & ".Copy Windows(1).Activate Selection.EndKey Unit:=wdLine Selection, 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(" & fso.GetExtensionName(strSrcName)) Set oNewDoc = Documents.FileSystemObject"、恩ALT+F11进入宏编辑器。
3;结束!"End Sub4, nSubIndex As Integer;".doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容."、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.Information(wdNumberOfPagesInDocument) oSrcDoc供你参考; "" If MyName <.Name Then Set wb = Documents.Open(MyPath & "\.Content oRange;>".ScreenUpdating = True End Sub 4、运行; & MyName) Selection;3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下: Sub 合并文档() Application.ScreenUpdating = False MyPath = ActiveDocument:1.GetBaseName(strSrcName) & ".FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.TypeParagraph Selection; ActiveDocument;\page").Range.Copy oSrcDoc.Windows(1).SaveAs strNewName oNewDoc.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "、键入F5运行,看到“完成!”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n, nBound As Integer Dim fso As Object Const nSteps = 200 ' 修改这里控制每隔几页分割一次 Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To nTotalPages Step nSteps Set oNewDoc = Documents.Add If nIndex + nSteps > nTotalPages Then nBound = nTotalPages Else nBound = nIndex + nSteps - 1 End If For nSubIndex = nIndex To nBound oSrcDoc.Activate oSrcDoc.Bookmarks("\page").Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next oNewDoc.Activate oNewDoc.Windows(1).Selection.Paste Next nSubIndex strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName)) oNewDoc.SaveAs strNewName oNewDoc.Close False Next nIndex Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束!"End Sub。
不过那个是按单页拆分的.Target = wdBrowsePage Application.Browser.Next strSrcName = oSrcDoc。
如果想按照指定页数拆分:Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document、键入ALT+F11打开VBA编辑器.doc”)、粘贴下面的代码.Add Selection.Paste oNewDoc;) Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc;) i = 0 Do While MyName <.Collapse wdCollapseStart oRange.Select For nIndex = 1 To ActiveDocument.Browser;>,选择菜单“插入-模块”; & "*.doc" 展开
如何把word文档每一页变成单独一个word文档
1、单击【常用】工具栏中的【新建空白文档】按钮,创建一个空文档。
2、选择【视图】菜单中的【大纲】菜单项,并切换到大纲视图下。
此时【大纲】工具栏自动激活,【大纲】工具栏及各按钮的具体含义。
3、输入文档的大纲,并用内置的标题样式对各级标题进行格式化。
4、选定要拆分为子文档的标题和文本。
注意选定内容的第一个标题必须是每个子文档开头要使用的标题级别。
例如,所选内容中的第一个标题样式是“ 标题3”,那么在选定的内容中所有具有“标题3”样式的段落都将创建一个新的子文档。
选定的方法是鼠标移到该标题前的空心十字符号,此时鼠标指针变成十字箭头,单击鼠标即可选定该标题包括的内容。
5、单击【大纲】工具栏中的【创建子文档】按钮,原文档将变为主控文档,并根据选定的内容创建子文档。
可以看到,Word 把每个子文档放在一个虚线框中,并且在虚线框的左上角显示一个子文档图标,子文档之间用分节符隔开。
6、把文件保存下来即可。
Word 在保存主文档的同时,会自动保存创建的子文档,并且以子文档的第一行文本作为文件名。
如何将一个word文档按页拆分成多个文档
点击创建,将第一章进行拆分5、双击图中所示文本标志。
6、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示1级标题——点击显示文档4、双击第一章前面的“+”号以显示第一章全部内容,点击保存即可。
然后重复上面步骤,将其他章节进行拆分1、打开需要拆分的文档2、会自动弹出新word窗口,新word文档为全部第一章节内容...