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