Method 1% 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.quitset objworddoc = NothingSet ObjwordApp = Nothing%> Method 2 <% set obj = getObject ("e: /mydoc.doc", "word.document.8") obj.application. Visible = true set obj = Nothing%>
