1、開啟需要拆分的文件 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱檢視——顯示1級標題——點選顯示文件 4、雙擊第一章前面的“+”號以顯示第一章全部內容,點選建立,將第一章進行拆分 5、雙擊圖中所示文字標誌。 6、會自動彈出新word視窗
office辦公軟體是如今較為普遍的一種辦公軟體,word便是其中的一種。今天為大家分享一則如何將一個word文件按頁分割成多個word文件的方法。
材料/工具
方法
開啟需要分割的文件
1、在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 2、鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 3、貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do
鍵入ALT+F11開啟輯器
1、開啟word,該文件有兩頁,把每一頁都設定一個一級標題。 2、進入檢視,點選進入大綱頁面。 3、點選進入大綱後,Ctrl+A全選,然後把顯示級別設定為一級,然後點選顯示文件。 4、點選建立。 5、點選建立後,就可以進入檔案中另存文件了。 5、另
點選插入,模組
在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Di
貼上下面的程式碼:
手動的話就不用說了吧,什麼複製貼上的方法啊,刪除另存的方法啊什麼的,都可以。 另一個就是通過巨集了; 嘗試以下程式碼: Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNew
Option Explicit
1、在Word裡面開啟那個需要分割的文件; 2、鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 3、複製貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String,
Sub SplitPagesAsDocuments()
1、在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Dim oSrcDoc As Document, oNewDoc As Document
1、在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 2、鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 3、貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do
Dim strSrcName As String, strNewName As String
1、找到需要進行分離份Word文件雙擊開啟該Word文件。 2、在進入該文件後,找到需要分離開的頁面,將滑鼠從該頁面左上角下拉到頁面的右下角,選中改業的全部內容。 3、選中這一頁的群補內容後點擊彈出選項框中的剪下選項將所選中的內容剪下到剪下
Dim oRange As Range
1、開啟需要拆分的文件2、將需要拆分的章節標題樣式選中“標題1”3、選擇大綱檢視——顯示1級標題——點選顯示文件4、雙擊第一章前面的“+”號以顯示第一章全部內容,點選建立,將第一章進行拆分5、雙擊圖中所示文字標誌。6、會自動彈出新word視窗,新wo
Dim nIndex As Integer
這個得用大綱檢視; 在切換檢視之前,先將每頁的首行設定為一級標題; 然後切換到大綱檢視→顯示文件→建立; 最後,點選儲存,子文件就儲存在主文件所在的資料夾;
Dim fso As Object
這個必須用到大綱檢視; 第一步:在第一、第三、第五等每個兩頁的最頂端設定一個一級標題; 第二步:Ctrl+Alt+O(歐)切換到大綱檢視→顯示級別選擇1級→點選“顯示文件”→點選“建立”→Ctrl+S儲存; 完成,儲存後的子文件位於主文件資料夾內;
Set fso = CreateObject("Scripting.FileSystemObject")
一、整個表格拆分成上下兩個: 把滑鼠放到需要拆分的新表的一行任意一個單元格中,然後按CTRL+SHIFT+回車 二、拆分單元格 表格工具--“佈局”中,有一項,拆分單元格。 歡迎下載騰訊電腦管家瞭解更多知識,體驗更多功能。
Set oSrcDoc = ActiveDocument
1、在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Set oRange = oSrcDoc.Content
1、開啟需要拆分的文件 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱檢視——顯示1級標題——點選顯示文件 4、雙擊第一章前面的“+”號以顯示第一章全部內容,點選建立,將第一章進行拆分 5、雙擊圖中所示文字標誌。 6、會自動彈出新word視窗
oRange.Collapse wdCollapseStart
下面用本機的word2010來演示 1、開啟需要拆分的文件 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱檢視——顯示1級標題——點選顯示文件 4、雙擊第一章前面的“+”號以顯示第一章全部內容,點選建立,將第一章進行拆分 5、雙擊圖中所示文字標誌
oRange.Select
請參考: http://zhidao.baidu.com/question/164634421.html http://wenku.baidu.com/view/1ffa41d549649b6648d74780.html
For nIndex = 1 To ActiveDocument.Content.
這個必須用到大綱檢視; 第一步:在第一、第三、第五等每個兩頁的最頂端設定一個一級標題; 第二步:Ctrl+Alt+O(歐)切換到大綱檢視→顯示級別選擇1級→點選“顯示文件”→點選“建立”→Ctrl+S儲存; 完成,儲存後的子文件位於主文件資料夾內;
Information(wdNumberOfPagesInDocument)
請嘗試如下步驟: 1、開啟需要分割的PPT文件(假設檔名為“原始文件.ppt”); 2、鍵入Alt+F11切換到VBA編輯環境,然後選擇選單“插入-模組”; 3、在程式碼編輯區貼上如下程式碼: Option Explicit Sub SplitSlides() Dim oSrcPresentation As Presen
oSrcDoc.Bookmarks("page").Range.Copy
1、在excel的載入項選擇方方格子,選擇彙總拆分功能。 2、在下拉選單中選擇拆分工作簿。 3、設定要拆分出的工作表,以及需要儲存的位置,然後點選確定。 4、執行完成後,會有提示,可以直接檢視檔案。 5、在指定的資料夾內就可以看到拆分好的表
oSrcDoc.Windows(1).Activate
1、在excel的載入項選擇方方格子,選擇彙總拆分功能。 2、在下拉選單中選擇拆分工作簿。 3、設定要拆分出的工作表,以及需要儲存的位置,然後點選確定。 4、執行完成後,會有提示,可以直接檢視檔案。 5、在指定的資料夾內就可以看到拆分好的表
Application.Browser.Target = wdBrowsePage
工具/原料 word辦公軟體 方法/步驟 1、開啟要操作的文件。如下圖所示: 2、在word工具欄中找到‘頁面佈局’一欄,點選進入。如下圖所示: 3、全選文件內容,快捷鍵ctrl+A ,在工具欄中找到‘分欄’選項,選擇兩欄。如下圖所示:
Application.Browser.NextstrSrcName = oSrcDoc
以WPS 2019版本為例: 關於如何將一個EXCEL中的多個sheet表拆分為多個EXCEL表,您可使用WPS參考下述步驟完成操作: 1、開啟「表格(Excel)」文件; 2、點選「資料-拆分表格」; 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分
.FullName
樓下說的沒錯利用acrobat可以 利用福昕閱讀器企業版也可以 因為可以直接刪除、剪下、複製貼上頁面,也可以分成一頁一頁的 ,然後在拼到一起所以 你想怎麼分割都行 你想要的是提取頁面吧,也可以右鍵 提取液麵 然後如圖 就可以自由選擇連續頁面進
strNewName = fso.BuildPath(fso.GetParentFolder
1、在Word裡面開啟那個需要分割的文件(假設它的檔名叫做“原始文件.doc”); 鍵入ALT+F11開啟VBA編輯器,選擇選單“插入-模組”; 貼上下面的程式碼: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Name(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執行,看到“完成!”
成功!
擴充套件閱讀,以下內容您可能還感興趣。
如何將一個word文件按頁分割成多個word文件
1、開啟需要拆分的來文件2、將需要拆分的章節標題樣式選中“標題1”3、選擇大綱檢視——顯示自1級標題——點選顯示文件4、雙擊第一章前面的百“+”號以顯示第一章全部內容,點選度建立,將第一章進行拆分5、雙擊圖中所示文字標誌。6、會自動彈出新word視窗,新word文件為全部第一章節問內容,點選儲存即可。然後重複上面步驟,將其他章答節進行拆分。
如何將一個word文件按頁分割成多個word文件
這個得用大綱檢視;
在切換檢視之前,先將每頁的首行設定為一級標題;
然後切換到大綱檢視→顯示文件→建立;
最後,點選儲存,子文件就儲存在主文件所在的資料夾;
如何將一個word文件按2頁分割成多個word文件
這個必須用到大綱檢視;
第一步:在第一、第三、第五...等每個兩頁的最頂來端設定一個一級標題;
第二步:Ctrl+Alt+O(歐)切換到大綱檢視→顯示源級別選擇1級→點選“zd顯示文件”→點選“建立”→Ctrl+S儲存;
完成,儲存後的子文件位於主文件資料夾內;
如何將一個word文件按一定頁數(如:每3頁,每4頁)分割成多個word文件?
沒聽說有現成的工具,一個個用手分吧。
WORD文件如何將一個表格拆分成兩個?
一、整個表zd格拆分成上下兩個:
把滑鼠放到需要拆分的新表的一行任意一個單元格中,然後按CTRL+SHIFT+回車
二、拆分單元格
表格工具內--“佈局”中,有一項,拆分單元格。
歡迎容下載騰訊電腦管家瞭解更多知識,體驗更多功能。