怎麼切割文檔
① 如何將一個word文檔按2頁分割成多個word文檔
1.
這個必須用到大綱視抄圖;
2.
第一步:在第一、第三、第五...等每個兩頁的最頂端設置一個一級標題;
3.
第二步:ctrl+alt+o(歐)切換到大綱視圖→顯示級別選擇1級→點擊「顯示文檔」→點擊「創建」→ctrl+s保存;
4.
完成,保存後的子文檔位於主文檔文件夾內;
② 如何將一個word文檔按頁分割成多個word文檔
1、在Word裡面打開那個需要分割的文檔(假設它的文件名叫做「原始文檔.doc」);
2、鍵入ALT+F11打開VBA編輯器,選擇菜單「插入-模塊」;
3、粘貼下面的代碼:
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
4、鍵入F5運行,看到「完成!」結束。
5、檢查當前文檔所在路徑下是否生成若干名為「原始文檔_n.doc」(n代表其對應原始文檔中的第幾頁)的文檔,檢查它們的內容是否就對應於原始文檔每個頁面的內容。
③ 怎麼切割文檔txt文件
網路抄
TXTshashou
軟體,襲可按章節、大小等切分txt文本
http://www.skycn.com/soft/55267.html
到天空下載
④ 如何將一個word文檔分割成多個word文檔
Word2007中把游標定位在要分割文檔的位置——插入——頁——分頁即可。
⑤ 怎樣快速剪切一部分文檔
你把游標放在要剪切的開頭一個字的前面,然後按住SHIFT鍵,再找到結尾處滑鼠點一下,就把這一區域選中了。復制或者剪切都可以了
⑥ 如何切割文本文檔
假設你要把每行限制在11個字之內,用Replace
Pioneer的正則表達式功能,把每11個非換行字元後加內一個換行符容。步驟:
1.
ctrl-o打開文本文件
2.
ctrl-h打開替換窗口
在Search
for
pattern下輸入[^\n]{11},在Replace
with
pattern下輸入$match\n即可
3.
點擊Replace即完成。ctrl-s存檔。
⑦ 如何切割word文檔,把大的切割成多個小的,要有用,快捷,的方法,或者有關軟體也行,
1、在Word裡面打開那個需要分割的文檔(假設它的文件名叫做「原始文檔.doc」);
2、鍵入ALT+F11打開VBA編輯器,選擇菜單「插入-模塊」;
3、粘貼下面的代碼:
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
4、鍵入F5運行,看到「完成!」結束。
5、檢查當前文檔所在路徑下是否生成若干名為「原始文檔_n.doc」(n代表其對應原始文檔中的第幾頁)的文檔,檢查它們的內容是否就對應於原始文檔每個頁面的內容。 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, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object
Const nSteps = 4
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 strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & 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
⑧ 怎麼把word文檔中的一整個頁面剪切下來
把整個word文件復的完整頁截屏下制來的操作步驟:
1、雙擊打開要整頁截屏的Word文檔。
⑨ 怎樣切割文件
還是用這個方法好
超級文件切割刀2.0
是由Ly軟體工作室提供的免費軟體,功能專強大,可分割合並文件屬,還可合並任意文件,此軟體的特點是速度快、分割安全、准確,而且採用了多線程設計對文件進行分割與合並,所以速度快,由於發現網上一些同類軟體對文件的分割與合並准確性不好,所以此軟體對文件的分割與合並進行了嚴格的設計與測試,經過多次的分割與合並大小文件,結果都十分准確,此軟體還能對程序加鎖和快速復制文件
下載地址:http://gzcnc.onlinedown.net:82/files/SupperCutsetup.exe