Scripts Property Example

This example displays the text in the first Script object in the active document.

Debug.Print ActiveDocument.Scripts(1).ScriptText

This example tests the second Script object in the specified range to determine its language.

Select Case Selection.Range.Scripts(2).Language
    Case msoScriptLanguageASP
        MsgBox "Active Server Pages"
    Case msoScriptLanguageVisualBasic
        MsgBox "VBScript"
    Case msoScriptLanguageJava
        MsgBox "JavaScript"
    Case msoScriptLanguageOther
        MsgBox "Unknown type of script"
End Select