使用VBA编辑器将一个word文档按页拆分成多个文档

今天在整理百度认证考试题,因为题目太多,如果一个一个复制粘贴到本博客的话,那就是一个非常艰巨的任务,所以我在考虑能否将1个word文档按照页数拆分为多个文档,这样我在单独一个一个word文档采用技术手段导入到wordpress岂不是更快捷一下。

百度了一下想要将将一个word文档按页拆分成多个文档,需要使用VBA编辑器编写一段VBA命令。但是我使用的是WPS 办公软件,所以尝试了用微软office的VBA命令是否有效,经过测试下面的操作方法是有效的。

将一个word文档按页拆分成多个文档

打开需要分割的文档,键入ALT+F11打开辑器

键入ALT+F11打开辑器

点击插入,模块

点击插入,模块

粘贴下面的代码:

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

按键F5运行,看到“完成!”

键入F5运行,看到“完成!

未经允许不得转载:地下室先生博客 » 使用VBA编辑器将一个word文档按页拆分成多个文档

赞 (0) 打赏作者

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏