Office VBA教程:Scripts集合对象

Scripts (Script)

Script对象的集合,它代表指定文档中的 HTML 脚本的集合。

使用 Scripts集合

Scripts集合包含了指定文档中所有的 Script对象,它们在该集合中按源顺序(即将 Script对象添加到源文件中的顺序)排列。源顺序不受脚本在文档中的位置(页眉或正文)的影响。可用 Script对象访问脚本,或向 Microsoft Word 文档、Microsoft Excel 工作表或 Microsoft PowerPoint 幻灯片中添加脚本。也可用 Scripts集合访问在 Microsoft Office 应用程序中打开的任何 HTML 页或脚本。

注意  Microsoft Access 不使用这一共享的 Office 组件。

添加 Script对象

在向 Scripts集合中添加 Script对象时,一个 msoScriptAnchor 类型的 Shape对象会被自动添加到该文档中。在 Excel 工作表或 PowerPoint 幻灯片中,该对象会被添加到 Shapes集合中;在 Word 文档中,该对象会被添加到 InlineShapes集合中。可通过Add方法向文档中添加一个 Script对象。以下示例向活动 Word 文档添加一个简单的脚本。


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

若要访问 Scripts集合中的特定项,请用Item方法,并提供 <SCRIPT> 标记的 ID属性或标识脚本在集合中的位置的索引号。该 ID属性在文档中必须唯一。如果 ID属性不唯一,则返回找到的第一个具有该 ID 的脚本。以下示例在一个消息框中显示找到的第一个以"ScriptOne" 为 ID 的脚本的语言。


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

Count属性判断指定文档中 Script对象的个数。以下示例显示活动文档中脚本的个数。


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

如下例所示,可以用Delete方法从 Scripts集合中删除一个脚本。


ActiveDocument.Scripts("ScriptOne").Delete

上页:Office VBA教程:Script对象 下页:Office VBA教程:SearchFolders集合

Office VBA教程:Scripts集合对象

Office VBA教程:SearchFolders集合 Office VBA教程:SearchScope对象
Office VBA教程:SearchScopes集合 Office VBA教程:Signature对象
Office VBA教程:SignatureSet集合 Office VBA教程:WebPageFont对象
Office VBA教程:WebPageFonts集合对象 Office VBA教程:New对象
Office VBA教程:ActionControl属性 Office VBA教程:ActiveMenuBar属性
Office VBA教程:AdaptiveMenu属性 Office VBA教程:AdaptiveMenus属性
Office VBA教程:AllowMultiSelect属性 Office VBA教程:Animation属性
Office VBA教程:Application属性 Office VBA教程:AssistWithAlerts属性
Office VBA教程:AssistWithHelp属性 Office VBA教程:AssistWithWizards属性
Office VBA教程:AttachCertificate属性 Office VBA教程:BalloonError属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号