ASP 讀取Word文檔內容簡單示例

如下經過Word.Application對象來讀取Doc文檔內容並顯示示例。

下面進行註冊Word組件：
一、將如下代碼存檔命名爲：AxWord.wsc

XML code 複製代碼

<?xml version="1.0"?> <component> <registration  description="PH ActiveX Word Windows Script Component"  progid="AxWord.wsc"  version="1.00"  classid="{5F644CD7-E1D4-4D54-A260-B4CCC2F540FC}"> </registration> <public> <method name="GetDocContent"> </method> </public> <script language="VBScript"> <![CDATA[ Function GetDocContent(strFile) Dim wdObj Set wdObj = CreateObject("Word.Application") With wdObj .Documents.Open strFile GetDocContent = .ActiveDocument.Content On Error Resume Next .ActiveDocument.Close .ActiveWindow.Close .Quit End With Set wdObj = Nothing End Function ]]> </SCRIPT> </component>

二、選中文檔 -> 鼠標右鍵 -> 註冊 -> 出現註冊是否成功的訊息 -> [肯定]

三、選取檔案 -> 鼠標右鍵 -> 創建通用類型庫
     (單擊後會自動在同目錄下生成一個名爲ScriptLet.tlb的文檔。)

生成：

四、執行「dcomcnfg」,打開組件服務面板。

五、COM+應用程序 -> 鼠標右鍵 -> 新增 -> 應用程序

六、[下一步] -> [建立空的應用程序]

七、[下一步] -> [輸入新應用程序名稱] - > [下一步] -> 完成

八、AxWord -> 組件 -> 鼠標右鍵 -> 新增 -> 組件 -> [下一步]

九、安裝新組件

十、添加前面生成的 ScriptLet.tlb文件。

十一、下一步 - > 完成

 

ASP調用示例：

ASP code 複製代碼

<%
Dim doc Set doc = Server.CreateObject("AxWsc.Word") Response.Write doc.GetDocContent(Server.mappath("test.doc")) %>

附件下載.rar