服务器端打开word

方法一
<%
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
%>