怎樣把文件夾分成兩部分
❶ 如何將一個文件壓縮成兩部分
用好壓的分卷壓縮就能輕易實現你想要的效果。
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盤也可以先放電腦再拷進去。要用的時候要把兩個分卷放在一起,解壓第一個就好了