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文档
