如何把一个压缩好的文件,拆分成几个压缩文件?

可以先解压，再分御历卷压缩。或将压缩文件放入新建文件夹中，对文件夹分卷压缩。

以电脑安装了winrar为前提，分卷压缩步骤：

1、将压缩文件包，右键解压。

2、或新建文件夹。

3、将压缩文件放入文件夹大旦。

4、在文件夹滚拆扰上，右键，选择添加到压缩文件。

5、切分为分卷，大小下，选择需要的分卷大小。既然是已压缩文件，其大小直接除以欲分卷数量，既是分卷大小。

6、可在注释中，添加说明注释，确定既开始分卷压缩。

方法如下：

*** 作设备：戴尔笔记本电脑

*** 作系统：win10

*** 作程序：WPS文档2017

1、首先在打开的WPS文档页面打开两个文档，可以看到此时两个文档显示在一个窗口中。

2、然后，单击页面左上角的下拉菜单并选择“工具”选项。

3、然后单击“工具选项”菜单中的“选项”部分。

4、打开“选项”设掘袜置对话框，可以在左侧菜单栏中选择“视图”选项。

5、然后，在“视图”窗口中选择“在任务磨散喊栏中显示所有窗口瞎野”，并单击“确定”(OK)以拆分文档。

1. 如何快速把一个Word文档拆分数据分成两个文档

以WPS 2019版本为例：

如需把一个Word文档拆分，可使用清蚂WPS2019中已自带的「橘态文档拆分」功能：

*** 作步骤：

1）打开其中一份「文字（Word」文档；

2）点击「特色应用-拆分合并-拆分」；

3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。

2. 怎么把word文档一个分成两个文档 例如有三十页 分成各十五页的两个

可以这样，删除后面的15页后另存为前15页为一个文档，然后再打开原始文档，删除前15页再另存后15页为另一个文档。

也可以分别复制前后15页到新的文件里；

你这个要求相对简单，如果页数非常多，可用宏来解决，参考以下代码：

Sub SplitEveryFivePagesAsDocuments()

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 = 15 ' 修改这里圆正源控制每隔几页分割一次

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

3. 怎样把一个word文档从中间分成两部分

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）

键入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("Scripting.FileSystemObject")

Set oSrcDoc = ActiveDocument

Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart

oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oSrcDoc.Bookmarks("\page").Range.Copy

oSrcDoc.Windows(1).Activate

Application.Browser.Target = wdBrowsePage

Application.Browser.Next

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

fso.GetBaseName(strSrcName) &"_" &nIndex &"." &fso.GetExtensionName(strSrcName))

Set oNewDoc = Documents.Add

Selection.Paste

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Next

Set oNewDoc = Nothing

Set oRange = Nothing

Set oSrcDoc = Nothing

Set fso = Nothing

MsgBox "结束！"

End Sub

键入F5运行，看到“完成！”结束。

2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：

注意事项

分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。

---