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