当前位置:首页 » 办公资讯 » 怎样把文件夹分成两部分

怎样把文件夹分成两部分

发布时间: 2023-06-11 00:43:50

❶ 如何将一个文件压缩成两部分

用好压的分卷压缩就能轻易实现你想要的效果。
1.新建一个文件夹,用于存放分成两部分的压缩文件.
2.打开好压.
3.选定要分为两部分的压缩文件.
4.点击界面左上的“添加”.
5.在弹出框中“压缩分卷大小,字节”下的空白输入框中输入分卷大小(分两个卷就设置为原压缩文件大小的一半).
6.点击“确定”,就行。

❷ 怎么把一个文档分为两个文档

1. 如何快速把一个word文档拆分数据分成两个文档
以WPS 2019版本为例:

如需把一个Word文档拆分,可使用WPS2019中已自带的“文档拆分”功能:

操作步骤:

1)打开其中一份“文字(Word”文档;

2)点击“特色应用-拆分合并-拆分”;

3)点击添加需合并文件,橘态设置合并文件需合并的页数范围即可将多个文档合并为一份。
2. 怎么把word文档一个分成两个文档 例如有三十页 分成各十五页的两个
可以这样,删除后面的15页后另存为前15页为一个文档,然后再打开原始文档,删除前15页再另存后15页为另一个文档。

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

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

Sub ()

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代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

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

注意事项

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

❸ 怎样把文件夹里文件分开成两个文件

哪个文件夹的东西多就把哪个文件夹里的东西全选上,然后在另一个文件夹里点粘贴,一直点“否”,粘贴完后被蓝色背景选择中的那些就是不同共有的。

❹ 一个完整的文件怎么分割成两个部分

使用压缩包,就是winrar,右键…添加到压缩文件,在对话框中左下方有个“分卷压缩”,选择自动检测,把上面路径选择你的一个U盘点确定,它会在装满U盘后让你再选择一个位置,你可以选令一个U盘也可以先放电脑再拷进去。要用的时候要把两个分卷放在一起,解压第一个就好了

热点内容
马路上汽车的噪音在多少分贝 发布:2023-08-31 22:08:23 浏览:1876
应孕棒多少钱一盒 发布:2023-08-31 22:08:21 浏览:1347
标准养老金一年能领多少钱 发布:2023-08-31 22:05:05 浏览:1631
湖北通城接网线多少钱一个月 发布:2023-08-31 21:59:51 浏览:1713
开随车吊车多少钱一个月 发布:2023-08-31 21:55:06 浏览:1477
京东付尾款怎么知道前多少名 发布:2023-08-31 21:52:58 浏览:1798
在学校租铺面一个月要多少钱 发布:2023-08-31 21:52:09 浏览:1935
2寸有多少厘米 发布:2023-08-31 21:50:34 浏览:1579
知道电压如何算一小时多少电 发布:2023-08-31 21:46:20 浏览:1559
金手镯54号圈周长是多少厘米 发布:2023-08-31 21:44:28 浏览:1734