On Error Resume Next

          Dim wApp
          Set wApp = CreateObject("Word.Application")
          If Err.number > 0 Then
          Alert "没法保存为Word文件,请正确安装Word97"
          wApp.visible = True
          wApp.Documents.add
           wApp.Selection.TypeParagraph
           wApp.Selection.Font.Bold = True
           wApp.Selection.TypeText "test"
           ....

asp脚本和客户端都能使用
类似的也可以操作excel 97、outlook 97等程序。