當前位置:首頁 » 辦公資訊 » 怎樣把文件夾分成兩部分

怎樣把文件夾分成兩部分

發布時間: 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 瀏覽:1733