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、选中文档 -> 鼠标右键 -> 注册 -> 出现注册是否成功的讯息 -> [确定]

3、选取档案 -> 鼠标右键 -> 建立通用类型库
     (单击后会自动在同目录下生成一个名为ScriptLet.tlb的文档。)

生成:

4、执行“dcomcnfg”,打开组件服务面板。

5、COM+应用程序 -> 鼠标右键 -> 新增 -> 应用程序

6、[下一步] -> [创建空的应用程序]

7、[下一步] -> [输入新应用程序名称] - > [下一步] -> 完成

8、AxWord -> 组件 -> 鼠标右键 -> 新增 -> 组件 -> [下一步]

9、安装新组件

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

11、下一步 - > 完成

 

ASP调用示例:
ASP code 复制代码
<%
Dim doc
Set doc = Server.CreateObject("AxWsc.Word")
Response.Write doc.GetDocContent(Server.mappath("test.doc")) %>
附件下载.rar
 

转载于:https://www.cnblogs.com/aixinxing-cn/p/5684019.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值