參與某個項目的時候，產品經理要求將產品的操作指南生成html頁面的形式直接以鏈接的形式在管理后臺中進行查看，當聽到這個要求時小編是相當頭疼啊，產品的操作指南將近百來頁，不可能手動一頁頁做成html頁面的形式吧。所以小編就想有沒有一個工具能直接將doc文檔生成html頁面工具？經過查找還真讓小編找到一個工具來將doc文檔生成html頁面。下面將告訴你如何使用這個工具，需要這個工具的同學可以在文末找到這個工具的下載方式。

1、打開工具文件的目錄，雙擊“doc2help”這個可執行文件，彈出如下圖示的操作界面；

2、在工具操作界面上，輸入或者選擇處理文件及輸出目錄，其他選擇默認設置即可，后點擊操作中的“生成html”按鈕會彈出轉動的圓圈，表示正在轉換，若轉換成功最后會彈出提示框提示轉換成功。轉換成功后打開輸出目錄可以看到如下圖示的文件及文件夾。

3、用瀏覽器打開上圖中的index頁面，可以看到轉換后的html頁面，此時html頁面已經生成但小編在查看頁面的時候發現某些頁面生成的章節存在問題，變為如下圖示的內容；

4、出現上面的問題就有點尷尬了，難道又要手動來改這些html嗎？小編又重新生成了一遍html頁面，打開發現換成其他地方出問題了，小編有重新生成了幾次發現出現問題的地方是隨機的，發現這一個規律后小編有了一個解決此問題的思路：利用對比工具對比兩次生成的內容，不一樣的地方肯定會有一個是正常了，用正常的覆蓋錯誤的之后就可以解決此問題了；所以打開對比工具，按文件夾對比方式對比，如下圖示：

5、選擇兩次生成html文件夾，最后按“OK”按鈕進行對比,對比結果如下圖示：

6、雙擊對比的頁面，彈出文件內容對比結果（注意左上角要選擇展示不相等的符號按鈕）：

7、在正確的窗口中全選（按Ctrl+A鍵）后點擊鼠標右鍵，在彈出菜單中點擊“Copy to Other Side”將正確的頁面內容拷貝到另外一側錯誤的頁面中：

8、拷貝完成后在原錯誤的頁面中保存（按Ctrl+S鍵）保存正確的內容：

9、正確保存后對比內容不相同的地方為空，表示兩個頁面內容都一樣了：

10、按照上次的方式反復操作直至所有頁面內容均一致，此時再打開生成的頁面，沒有發現html頁面還有問題了，至此完成了doc文檔生成html頁面。

上面介紹了如何使用工具完成doc文檔生成html頁面的步驟，由于小編用的是破解版的工具，生成html頁面的時候存在隨機錯誤，所以小編增加了一個對比工具解決這些隨機錯誤。需要獲此這些工具的同學可以關注我們的微信公眾號，回復“doc生成html工具”獲取doc生成html工具包的下載地址。

歡迎大家關注我們同名微信公眾號“麻辣軟硬件（微信號：VOSDeveloper）”，一起交流技術相關話題！關注方法：進入微信“添加朋友”，點擊“公眾號”，在搜索框輸入“麻辣軟硬件”或者“VOSDeveloper”即可點擊關注啦！

用Word宏來實現批量將HTML轉換成DOC

環境：OFFICE WORD 2007

打開WORD，在菜單的“視圖”->“宏”->“查看宏”->“創建”

Sub 宏1()

Dim MyFile As String

Dim Arr(1000) As String'一次處理最大的文件數量，根據需要修改數字1000改為需要處理的數量

Dim count As Integer

MyFile = Dir("F:\待處理的HTML目錄\" & "*.html")

count = count + 1

Arr(count) = MyFile

Do While MyFile <> ""

MyFile = Dir

If MyFile = "" Then

Exit Do

End If

count = count + 1

Arr(count) = MyFile '將文件的名字存在數組中

Loop

For i = 1 To count

Documents.Open FileName:="F:\待處理的HTML目錄\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _

False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _

"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _

Format:=wdOpenFormatAuto, XMLTransform:=""

ActiveDocument.SaveAs FileName:="F:\處理后DOC保存的目錄\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _

LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

ActiveDocument.Close

Next

End Sub