word转chm

之前做说明书都是用的麦田软件的转换工具，这次转出来居然出现广告了，没办法只能另寻他法。

        word先要转成htm才能转成chm.

        我的word有五十几页，网上找了如下办法将word分页转成htm

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))<span style="font-family: Arial, Helvetica, sans-serif;">    </span>

    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, wdFormatHTML

        oNewDoc.Close

        Application.Browser.Next

    Next

    MsgBox "完成！"

End Sub

5、键入F5，运行。

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

实践证明，转到第15页就卡住了

最后我采用了最傻的办法，安装章节目录将五十几页的文档存成了二十几个word文档，每个用word自带的另存为格式存储为“筛选过的网页文件（htm,html）”

最后再使用微软的HTML Help Workshop

http://www.7down.com/article/32169.html

一页一页地编辑，虽然慢了点，但是真的靠谱哦！