可不可以单独提取多页word文档中的一页
2024-07-20 广告
可以的,通过VBA编辑器插入模块代码运行来实现。
代码为:
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName),fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub
实操步骤如下:
1、在桌面新建一个文件夹,并在文件夹里新建一个Word文档取名为提取页,如下图。
2、打开文档,为了方便演示在里面先输入4页数据,如下图。
3、键盘上按Alt+F11打开VBA编辑器,选择菜单“插入-模块”,如下图。
4、拷贝上面代码,粘贴到模块代码输入页里,如下图。
5,出现结束提示框,则完成,如下图。
6、这时点击确定并关掉VBA编辑器,打开原文档所在的文件夹,就可以看到提取出来的每一页单独文档,文档名字后面的数字代表页码,如下图。
2019-08-09 · 旨在提供办公软件的问答帮助。