键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;
粘贴下面的代码:
Option Explicit
Sub 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("ScriptingFileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDocContent
oRangeCollapse wdCollapseStart
oRangeSelect
For nIndex = 1 To ActiveDocumentContentInformation(wdNumberOfPagesInDocument)
oSrcDocBookmarks("\page")RangeCopy
oSrcDocWindows(1)Activate
ApplicationBrowserTarget = wdBrowsePage
ApplicationBrowserNext
strSrcName = oSrcDocFullName
strNewName = fsoBuildPath(fsoGetParentFolderName(strSrcName), _
fsoGetBaseName(strSrcName) & "_" & nIndex & "" & fsoGetExtensionName(strSrcName))
Set oNewDoc = DocumentsAdd
SelectionPaste
oNewDocSaveAs strNewName
oNewDocClose False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub
键入F5运行,看到“完成!”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_ndoc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。消除分节符的方法:
注意事项
分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。
第一步:在Word2010中打开要拆分的Word文档,在文档拆分位置添加新标题作为拆分后独立文档的标题名称,也可以用节标题作为拆分后文档的标题名称。
第二步:选中拆分处的标题,单击“开始”选项卡,在“样式”组中单击“标题1”。
第三步:接着双击“剪贴板”组中的“格式刷”,鼠标变成刷子形状,然后鼠标分别在拆分文档新标题前面单击选中该标题,便把分割处的标题都设置成了“标题1”级别。
第四步:单击“视图”选项卡,在“文档视图”中单击“大纲视图”按钮。
第五步:打开文档“分节”界面,在“大纲工具”组中设置“显示级别:1级”,同时Ctrl+A全选显示的大纲内容。
第六步:接着在“主控文档”组中依次单击“显示文档”、“创建”按钮。
第七步:单击“文件”选项卡,在d出的下拉选项组中单击“另存为”,在打开的“另存为”对话框中选择文件保存的位置,其他选项保持默认,最后单击“保存”即可。这样在文件保存位置就看到拆分后的文档了。
以WPS 2019版本为例:
如需将一个word大文件拆分几个小文件,可使用WPS2019中已自带的「文档拆分」功能:
*** 作步骤:
1)打开其中一份「文字(Word」文档;
2)点击「特色应用-拆分合并-拆分」;
3)点击添加需合并文件,设置合并文件需合并的页数范围即可将多个文档合并为一份。
一、首先,打开word2010程序,然后打开要拆分成多个小文档的Word文档。
二、然后,在Word程序主界面上方点击“大纲”,点击打开。
三、然后,在文档中依次选择需要拆分的文件标题,并且设置大纲级别为1级。
四、然后,选择需要拆分的标题前面的“+”,点击“显示文档”,选择“创建”。
五、然后,将其他的子文档同上 *** 作。
六、然后,点击“执行文件”选择“保存命令”,即可保存子文档。
七、最后,可以看到word文档分成多个小的文档,问题解决。
Word里把一个表格拆分成两个方法如下:
1、打开word,点击插入,选择插入表格,自选表格行列,新建一个空白表格。
2、在表格上填好数据。
3、把鼠标光标放在第四行第一格。
4、然后点击表格工具,选择拆分表格中的按行拆分。
5、表格拆分为两个完成。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)