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等程序。
|