ヽ(✿ﾟ▽ﾟ)ノ Yippee

本篇只針對程式碼部分作說明，元件安裝說明請參考： http://www.dotblogs.com.tw/yippee/archive/2011/01/10/20709.aspx

元件中函數語法如下：

Function GetDocContent(strWord,strHtml)
dim objFso,objWord,oDoc
Set objFso = CreateObject("Scripting.FileSystemObject")  
Set objWord = CreateObject("Word.Application")
objWord.Documents.Open objFso.GetAbsolutePathName(strWord)
objWord.Visible = False  
Set oDoc = objWord.ActiveDocument
oDoc.SaveAs strHtml, 10
oDoc.Close  
Set oDoc = Nothing  
objWord.Quit  
Set objWord = Nothing  
End Function

ASP Code 如下:

<%
' 宣告
Dim wd 

' 建立先前寫的 DLL 物件 , 個體化
Set wd = Server.CreateObject("AxWsc.Word")

' 執行 Dll 中的 GetDocContent 方法 將Word 另存為 Html
wd.GetDocContent "C:\1.doc","D:\2.htm"
%>