Objeto Script

Scripts (Script)

Representa un bloque de secuencias de comandos HTML en un documento de Microsoft Word, en una hoja de cálculo de Microsoft Excel o en una diapositiva de Microsoft PowerPoint. El objeto Script es parte de la colección Scripts.

Utilizar el objeto Script

Utilice Scripts.Item(index), donde index es el nombre, el ID o el número de índice de una secuencia de comandos, para devolver un solo objeto Script. Cada objeto Script se identifica con la propiedad Id, que proporciona un nombre adecuado que puede utilizar para obtener acceso a la secuencia de comandos. El ejemplo siguiente agrega una sola secuencia de comandos a la colección Scripts en el documento activo y muestra el ID de la secuencia de comandos con el valor de índice 1.

myScript = ActiveDocument.Scripts.Add( _
    , msoScriptLocationInBody, _
    msoScriptLanguageVisualBasic, _
    "ScriptOne", , _
    "MsgBox (""This is ScriptOne. "")")
MsgBox (ActiveDocument.Scripts(1).Id)

Puede especificar el lenguaje de comandos utilizado en la secuencia de comandos cambiando la propiedad Language. El ejemplo siguiente cambia el lenguaje de comandos de la secuencia de comandos uno a páginas Active Server (ASP).

ActiveDocument.Scripts.Item("ScriptOne") _
    .Language = msoScriptLanguageASP

Puede comprobar la ubicación de la forma del delimitador de la secuencia de comandos en un documento HTML mediante la propiedad Location. El ejemplo siguiente realiza una comprobación para determinar si ScriptOne está en el cuerpo del documento HTML activo.

If ActiveDocument.Scripts("ScriptOne").Location = _
    msoScriptLocationInBody Then
    MsgBox ("Script is in the HTML document body.")
Else
    MsgBox ("Script is located in the header. ")
End If

Puede comprobar o establecer los atributos agregados a la etiqueta <SCRIPT> (a excepción de los atributos LANGUAGE e ID) utilizando la propiedad Extended. El ejemplo siguiente comprueba los atributos adicionales de la secuencia de comandos uno del documento activo.

If ActiveDocument.Scripts(1).Extended = "" Then
    MsgBox ("No additional attributes are present " & _
    "in Script " &
     ActiveDocument.Scripts(1).Id)

Puede comprobar o establecer el texto de la secuencia de comandos asociado con una secuencia de comandos determinada mediante la propiedad ScriptText. El ejemplo siguiente muestra un cuadro de mensaje que contiene el texto de secuencia de comandos asociado con la secuencia de comandos uno del documento activo.

MsgBox (ActiveDocument.Scripts("ScriptOne").ScriptText)