Script 属性

返回一个 Script 对象，该对象代表指定 Web 页中脚本或代码块。如 Web 页中没有脚本，则不返回值。

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例显示活动文档第一个图形所用的脚本语言类型。

Set objScr = ActiveDocument.Shapes(1).Script
If Not (objScr Is Nothing) Then
    Select Case objScr.Language
        Case msoScriptLanguageVisualBasic
            MsgBox "VBScript"
        Case msoScriptLanguageJava
            MsgBox "JavaScript"
        Case msoScriptLanguageASP
            MsgBox "Active Server Pages"
        Case Else
            Msgbox "Other scripting language"
    End Select
End If