CSDN博客

img aspczlover

服务器端打开word

发表于2004/10/2 5:08:00  1100人阅读

方法一
<%
str="hello world"

Set objWordApp = Server.CreateObject("Word.Application")
objWordApp.visible=true

Set objWordDoc=objWordApp.Documents.Open("e:/mydoc.doc")
objWordApp.Selection.TypeText(str)
objWordDoc.content.Font.Name = "Arial"
objWordApp.Application.Activate()
objWordApp.ActiveDocument.SaveAs("e:/mydoc1.doc")
objWordApp.quit
Set objWordDoc=nothing
Set objWordApp=nothing
%>

方法二
<%
 set obj=getobject("e:/mydoc.doc","word.document.8")
 obj.application.visible=true
 set obj=nothing
%>

阅读全文
0 0

相关文章推荐

img
取 消
img