1. 会计宝
  2. 财税知识
  3. 会计资讯

在脚本中操作word

2025-12-25 17:53 来源：会计宝 阅读量：268

导读：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

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

相关资讯
相关热门文章
大家都在问
您正在与金牌答疑老师聊天