word文档中，如何把每页变成单独一个word文档

2025-04-17 14:54:59

1、在电脑上用word2019打开要编辑的文档

2、然后点击word2019菜单栏上的“开发工具”菜单

3、然后在打开的开发工具的工具栏上点击“VisualBasic”的图标。

4、接着在打开的VB运行框中输入如下内容：Sub lqlxhua()Application.ScreenUpdating = FalseSet MD = ThisDo艘早祓胂cumentActiveWindow.View.Type = wdPageViewMD.RepaginatePageNo = MD.BuiltInDocumentProperties(wdPropertyPages)For i = 1 To PageNoMD.ActivateSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=iSelection.EndKey Unit:=wdStory, Extend:=wdExtendsPage = Selection.TextSet aDoc = Documents.AddaDoc.Content.Text = sPageaDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"aDoc.CloseNextApplication.ScreenUpdating = TrueEnd Sub

5、输入完成后我们点击VB窗口工具栏上的运行按钮。

6、打开文件资源管理器，可以看到每一页都创建为一个word文档了。

7、总结：1、在电脑上用word2019打开要编辑的文档2、然后点击word2019菜单栏上的“开发工具”菜单3、然后在打开的开发工具的工琼藻樘哒具栏上点击“Visual Basic”的图标。4、接着在打开的VB运行框中输入VB的运行代码5、输入完成后我们点击VB窗口工具栏上的运行按钮。6、可以看到每一页都创建为一个word文档

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。