以下通过Word.Application对象来读取Doc文档内容并显示示例。
下面进行注册Word组件:
1、将以下代码存档命名为:AxWord.wsc
- <?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调用示例:
- <%
- Dim doc
- Set doc = Server.CreateObject("AxWsc.Word")
- Response.Write doc.GetDocContent(Server.mappath("test.doc"))
- %>
百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网92to.com,您的在线图书馆!
来源: http://www.92to.com/bangong/2017/09-10/28281570.html