资源下载 - 从此开始!

下载我_精品源码软件教程资源网

您的位置:首页 > 建站教程 > 软件资讯 > 正文

ASP 读取Word文档内容简单示例

2017-09-13 12:46 来源:未知 编辑:admin【纠错

以下通过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"))
%>

打赏一下,我们会为大家提供更多优质资源!

看过本文的人还看过

微信扫一扫

站长微信账号