Shape.Script Property (Word)
Returns a Script object, which represents a block of script or code for an image on a Web page.
Syntax
expression .Script
expression Required. A variable that represents a Shape object.
Remarks
If the Web page contains no script, nothing is returned.
Example
This example displays the type of scripting language used in the first shape in the active document.
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