FrontPage VBA教程:embeds属性

返回 IHTMLElementCollection集合对象,该对象代表当前文档中所有的 EMBED 元素。EMBED 元素允许您在文档中嵌入任何类型的文档。


expression  必选。返回DispFPHTMLDocument对象的表达式。


下列示例返回 EMBEDS集合,并显示文档中嵌入元素的数量。如果没有元素,则向用户显示一条消息。

Sub EmbedsInfo()
'Returns and displays information about
'the EMBEDS elements in the current document.
    Dim objApp As FrontPage.Application
    Dim objDoc As DispFPHTMLDocument
    Dim objEmbeds As IHTMLElementCollection
    Set objApp = FrontPage.Application
    Set objDoc = objApp.ActiveDocument
    Set objEmbeds = objDoc.embeds
    'If there are EMBED elements
    If objEmbeds.Length <> 0 Then
        'If the length = 1
        If objEmbeds.Length = 1 Then
            MsgBox "There is only one " _
                    "embedded object in the current document."
            'If there are more than one
            MsgBox "There are " & objEmbeds.Length - 1 & _
                   " embedded objects in the current document."
        End If
       'Otherwise there are no embeds elements
       MsgBox "There are no embedded objects " _
               "in the current document."
    End If
End Sub

上页:FrontPage VBA教程:EditSecurity属性 下页:FrontPage VBA教程:Extension属性

FrontPage VBA教程:embeds属性

FrontPage VBA教程:Extension属性 FrontPage VBA教程:external属性
FrontPage VBA教程:fgColor属性 FrontPage VBA教程:Fields属性
FrontPage VBA教程:File属性 FrontPage VBA教程:fileCreatedDate属性
FrontPage VBA教程:FileDialog属性 FrontPage VBA教程:FileDialogViewPage属性
FrontPage VBA教程:fileModifiedDate属性 FrontPage VBA教程:Files属性
FrontPage VBA教程:FileSaveForm属性 FrontPage VBA教程:FileSearch属性
FrontPage VBA教程:fileSize属性 FrontPage VBA教程:fileUpdatedDate属性
FrontPage VBA教程:Folder属性 FrontPage VBA教程:Folders属性
FrontPage VBA教程:Format属性 FrontPage VBA教程:forms属性
FrontPage VBA教程:isDirty属性 FrontPage VBA教程:frames属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号