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