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