當前位置:首頁 » 辦公資訊 » word文檔頁面怎樣變成多個

word文檔頁面怎樣變成多個

發布時間: 2023-02-04 17:14:55

⑴ 怎麼將word多頁分成多個文檔

WORD多個頁面分成多個文檔,可以直接新建多個空白文檔,然後把每一頁的內容復制粘貼過去另存為一個文檔就可以實現了。
所需工具:WPS
2016版本演示
操作步驟:
第一步,打開一個多頁的文檔,然後使用快捷鍵Ctrl+N新建若干個空白文檔,如圖所示。
第二步,把需要分開的文檔頁面,全選一頁內容進行復制---粘貼到新建的空白文檔中去。
第三步,粘貼到空白文檔,然後進行文件的命名保存,快捷鍵Ctrl+S。重復操作,直至全部頁面的內容保存完畢即可。

⑵ word文檔怎麼設置多頁顯示

  • 打開Word文檔

⑶ 如何將一個word文檔按頁分割成多個word文檔

運行後,會彈出一個窗口,在裡面輸入你想按多少頁導出。如果你想每5頁存一個文檔,那麼就寫5,如果是按1頁,就寫1。


Sub 多頁導出()

Dim MyPath As String, PageCount As Integer

Dim StartRange As Long, EndRange As Long, MyRange As Range

Dim Fn As String, MyDoc As Document, i As Integer

Dim q%, a%


On Error Resume Next

Application.ScreenUpdating = False


MyPath = ActiveDocument.Path

PageCount = Selection.Information(wdNumberOfPagesInDocument)



Selection.HomeKey unit:=wdStory

q = InputBox("一閃流溢讓我問問你,你想分幾頁導出,如5頁,填寫5")

For i = 1 To PageCount / q + (PageCount Mod q)

StartRange = Selection.Start

Selection.EndKey unit:=wdLine

Fn = i & "." & ActiveDocument.Name

If i * q >= PageCount Then

EndRange = ActiveDocument.Content.End

Else

For a = 1 To q

Selection.GoToNext (wdGoToPage)

Next a

EndRange = Selection.Start

End If

Set MyRange = ActiveDocument.Range(StartRange, EndRange)

MyRange.Copy



Set MyDoc = Documents.Add

With MyDoc

.Content.Paste

.Content.Paragraphs.Last.Range.Delete

.Content.Paragraphs.Last.Range.Delete

.SaveAs FileName:=MyPath & "/" & Fn

.Close

End With

Next


Application.ScreenUpdating = True

End Sub


代碼借鑒改編自excelhome的雨雪霏霏和守柔,雨雪霏霏。守柔

如果答案對你有幫助,記得留言點贊。

⑷ 如何將一個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代表其對應原始文檔中的第幾頁)的文檔,檢查它們的內容是否就對應於原始文檔每個頁面的內容。

⑸ 如何將一個word文檔按頁分成多個文檔

首先點擊視圖。

然後點擊大綱視圖。

接著點擊顯示文檔。

然後選擇顯示級別,右邊選擇二級。

接下來創建一個子文檔。

這樣就把這個文檔分成了多個小文檔。

⑹ word里如何將一個頁面分成兩列

1、將WORD文檔分成多個豎欄
設置分欄:選擇文本——點擊「格式」菜單——點擊「分欄」出現分欄對話框(根據需要選擇分欄設置,如需要豎線則選中分隔線復選框)——點擊確定
2、要將某個段落分成若干欄,可先選擇該段落,然後,再進行分欄的設置。
3、取消分欄:
游標放在已分欄的文本或段落中——點擊「格式」菜單——點擊「分欄」——在對話框中選擇—欄樣式——點擊確定。

熱點內容
馬路上汽車的噪音在多少分貝 發布:2023-08-31 22:08:23 瀏覽:1891
應孕棒多少錢一盒 發布:2023-08-31 22:08:21 瀏覽:1365
標准養老金一年能領多少錢 發布:2023-08-31 22:05:05 瀏覽:1649
湖北通城接網線多少錢一個月 發布:2023-08-31 21:59:51 瀏覽:1730
開隨車吊車多少錢一個月 發布:2023-08-31 21:55:06 瀏覽:1493
京東付尾款怎麼知道前多少名 發布:2023-08-31 21:52:58 瀏覽:1814
在學校租鋪面一個月要多少錢 發布:2023-08-31 21:52:09 瀏覽:1954
2寸有多少厘米 發布:2023-08-31 21:50:34 瀏覽:1599
知道電壓如何算一小時多少電 發布:2023-08-31 21:46:20 瀏覽:1578
金手鐲54號圈周長是多少厘米 發布:2023-08-31 21:44:28 瀏覽:1751