Home > 感悟 > 将word文档每页导出一个html文件的方法

将word文档每页导出一个html文件的方法0+

7,110 views / 2012.04.12 / 12:12 上午

杜工最近研究电子书,考虑到某些读者喜欢一页一页的翻书,而不是新时代的下拉方式阅读长文章,所以需要把word文档按照页码导出为html文件,一是便于电子书的制作,二是节省内存。
具体实现方法如下:
1、首先在Word里面打开原始文档;
2、键入Alt+F11打开VBA编辑器;
3、选择菜单命令“插入-模块”;
4、在代码编辑区中输入如下代码:
Option Explicit

Sub SavePagesToMultipleHTMLFiles()

Dim oSourceDoc As Document
Dim oNewDoc As Document
Dim strBaseName As String, strTargetFileName As String
Dim nIndex As Integer
Dim fs As Object

Set oSourceDoc = ActiveDocument
Set fs = CreateObject("Scripting.FileSystemObject")
strBaseName = fs.BuildPath(fs.GetParentFolderName(oSourceDoc.FullName), fs.GetBaseName(oSourceDoc.FullName))

Application.Browser.Target = wdBrowsePage
Selection.GoTo What:=wdGoToPage, Which:=Word.wdGoToFirst

For nIndex = 1 To oSourceDoc.BuiltInDocumentProperties("Number of Pages")
ActiveDocument.Bookmarks("\Page").Range.Copy
Set oNewDoc = Documents.Add
oNewDoc.Range.Paste
strTargetFileName = strBaseName & "_" & nIndex & ".html"
oNewDoc.SaveAs2 strTargetFileName, wdFormatFilteredHTML
oNewDoc.Close
Application.Browser.Next
Next

MsgBox "OK!"

End Sub

5、键入F5,运行。
6、检查在原文档相同目录下生成了若干个HTML文件,文件名是原文件后面加_1、_2、_3等,每个HTML文件对应原来一个页面的内容。

本站内容受著作权法保护。个人 blog 转载时请遵循 “署名-非商业用途-保持一致” 的创作共用协议;商业网站或未授权媒体不得复制本站内容。
Categories: 感悟 Tags:

Comments (0) Trackbacks (0) 本篇共有 0 篇评论↓
  1. No comments yet.
  1. No trackbacks yet.