ASP 读取Word文档内容简单示例
以下通过Word.Application对象来读取Doc文档内容并显示示例。
下面进行注册Word组件:
1、将以下代码存档命名为: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>
2、选中文档 -> 鼠标右键 -> 注册 -> 出现注册是否成功的讯息 -> [确定]
![](http://www.newxing.com/Tech/UploadPic/2010-11/201011406442608.jpg)
3、选取档案 -> 鼠标右键 -> 建立通用类型库
(单击后会自动在同目录下生成一个名为ScriptLet.tlb的文档。)
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140101082370.jpg)
生成:
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140102725777.jpg)
4、执行“dcomcnfg”,打开组件服务面板。
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140141540786.jpg)
5、COM+应用程序 -> 鼠标右键 -> 新增 -> 应用程序
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140163719480.jpg)
6、[下一步] -> [创建空的应用程序]
![](http://www.newxing.com/Tech/UploadPic/2010-11/2010114021693845.jpg)
7、[下一步] -> [输入新应用程序名称] - > [下一步] -> 完成
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140211548586.jpg)
8、AxWord -> 组件 -> 鼠标右键 -> 新增 -> 组件 -> [下一步]
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140262467087.jpg)
9、安装新组件
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140252942829.jpg)
10、添加前面生成的ScriptLet.tlb文件。
![](http://www.newxing.com/Tech/UploadPic/2010-11/20101140274963286.jpg)
11、下一步 - > 完成
ASP调用示例:
- ASP code复制代码
-
<% Dim doc Set doc = Server.CreateObject("AxWsc.Word") Response.Write doc.GetDocContent(Server.mappath("test.doc")) %>
![](http://www.newxing.com/img/rar.gif)