word文檔中，如何把每頁變成單獨一個word文檔
方式/步調
- 1
在電腦上用word2019打開要編纂的文檔
- 2
然后點擊word2019菜單欄上的“開辟東西”菜單
- 3
然后在打開的開辟東西的東西欄上點擊“Visual Basic”的圖標。
- 4
接著在打開的VB運行框中輸入如下內容：
Sub lqlxhua()
Application.ScreenUpdating = False
Set MD = ThisDocument
ActiveWindow.View.Type = wdPageView
MD.Repaginate
PageNo = MD.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
MD.Activate
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next
Application.ScreenUpdating = True
End Sub
- 5
輸入完當作后我們點擊VB窗口東西欄上的運行按鈕。
- 6
打開文件資本辦理器，可以看到每一頁都建立為一個word文檔了。
- 7
總結：
1、在電腦上用word2019打開要編纂的文檔
2、然后點擊word2019菜單欄上的“開辟東西”菜單
3、然后在打開的開辟東西的東西欄上點擊“Visual Basic”的圖標。
4、接著在打開的VB運行框中輸入VB的運行代碼
5、輸入完當作后我們點擊VB窗口東西欄上的運行按鈕。
6、可以看到每一頁都建立為一個word文檔
- 發表于 2019-10-08 17:00
- 閱讀 ( 1585 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章