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
- 阅读 ( 1576 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章