作者:乔山办公网日期:
返回目录:word文档
以知WPS 2019版本为例:
如需把一个Word文档拆分,可使用WPS2019中已自带的「文档拆分」功道能:
操作步骤:
1)打开其中一份「文字(Word」文档;
2)点击「特色应用-拆分合并回-拆分」;
3)点击添加需合并文件,设置合并文件需合并的页数答范围即可将多个文档合并为一份。
1、首先,打开word2010程序,然后打开要拆分成几个小文档百的word文档。
2、单击Word程序主屏幕顶部的“大纲度”,然后单击将其打开。
3、选择要在文档中按顺序拆分的文件标题,并将大纲级别问设置为级别1。
4、然后,选答择要拆分的标题前面的回"",单击"显示文档",然后选择"创建"。
5、然后,上面提到的其他子文档同样操作。
6、单击“执行文件”,选择“保存命令”保存子文档。
7、可以看到文档被分成答几个小文档,问题就解决了。
把一个word文档拆分为多个小文档的方法:
1.打开要处理的WORD文档,然后ALT+F8调出宏处理窗口,新输入宏名称为MyPg。
2.点击右侧的编辑按钮,输入如下内容e799bee5baa6e78988e69d83331,完成后键盘F5即可。
3.粘贴如下内容
Option Explicit
Sub MyPg()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, 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
此方法适用于页码分多个文档使用。
以WPS 2019版本为例:抄
如需将一个文档拆分成几个小文档,可使用WPS2019中已自带的「文档拆分」功能:
操作步骤:
1)打袭开其中一份「文字(Word」文档;
2)点击「特色应用-拆分合并-拆分」;知
3)点击添加需合并文件,设置合道并文件需合并的页数范围即可将多个文档合并为一份。