Objeto de colección Scripts

Microsoft Office Objects

Objeto de colección Scripts

         
Scripts (Script)

Colección de objetos Script que representa la colección de secuencias de comandos HTML del documento especificado.

Utilizar la colección Scripts

La colección Scripts contiene todos los objetos Script de un documento determinado, en el orden original (el orden el que los objetos Script se agregaron al archivo de origen). El orden original no se ve afectado por la ubicación (encabezado o texto independiente) de la secuencia de comandos dentro del documento. Puede utilizar objetos Script para obtener acceso a una secuencia de comandos o para agregar una secuencia de comandos a un documento de Microsoft Word, a una hoja de Microsoft Excel o a una diapositiva de Microsoft PowerPoint. También puede utilizar la colección Scripts para obtener acceso a cualquier página o secuencia de comandos HTML que se abra en una aplicación de Microsoft Office.

Nota   Microsoft Access no utiliza este componente compartido de Office.

Agregar un objeto Script

Cuando agrega un objeto Script a la colección Scripts, se agregará automáticamente un objeto Shape de tipo msoScriptAnchor al documento. En una hoja de Excel o en una diapositiva de PowerPoint, la forma se agregará a la colección Shapes; en un documento de Word, la forma se agregará a la colección InlineShapes. Para agregar un Script a un documento, utilice el método Add. El ejemplo siguiente agrega una sola secuencia de comandos al documento activo de Word.

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

Para obtener acceso a un elemento concreto de la colección Scripts, utilice el método Item y proporcione el atributo ID de la etiqueta <SCRIPT> o el número de índice que indica la posición de la secuencia de comandos dentro de la colección. El ID debe ser único dentro del documento. En el caso de que existan atributos ID duplicados, se devolverá la primera secuencia de comandos con dicho ID que se encuentre. El ejemplo siguiente muestra un cuadro de mensaje que indica la primera secuencia de comandos encontrada que utiliza el ID "ScriptOne".

MsgBox (ActiveDocument.Scripts.Item("ScriptOne").Language)

Utilice la propiedad Count para determinar el número de objetos Script en el documento especificado. El ejemplo siguiente muestra el número de secuencias de comandos que hay en el documento activo.

If ActiveDocument.Scripts.Count = 0 Then
    MsgBox ("There are no " & _
    "scripts in this document. ")
End If
If ActiveDocument.Scripts.Count = 1 Then
    MsgBox ("There is " & _
    ActiveDocument.Scripts.Count & _
    " script in this document. ")
End If
If ActiveDocument.Scripts.Count > 1 Then
    MsgBox ("There are " & _
    ActiveDocument.Scripts.Count & _
    " scripts in this document. ")
End If

Utilice el método Delete para quitar una secuencia de comandos de la colección Scripts, tal como se indica en el ejemplo siguiente.

ActiveDocument.Scripts("ScriptOne").Delete