createobject函数示例.sbs

SPSS的实战介绍

Sub Main
    Dim App As Object
    Set App = CreateObject("Word.Basic")
    MsgBox App.[Time$]()
    Set App = Nothing
End Sub