DispFPHTMLDocument 对象

         
多个对象
DispFPHTMLDocument
WebEx

代表当前窗口中的 HTML 文档。DispFPHTMLDocument 对象包含与 HTML 网页相关的所有属性信息,例如背景色、链接颜色和样式表,还包含作用于数据的方法,例如 CreateElementExecCommand 方法。

使用 DispFPHTMLDocument 对象

若要访问 DispFPHTMLDocument 对象,请使用 Application 对象或 PageWindowEx 对象的 ActiveDocument 属性。下列示例返回当前应用程序中的活动文档。

Set objDoc = objApp.ActiveDocument

使用 PagewindowEx 对象的 Document 属性可以返回当前在网页窗口中的 HTML 文档。下列示例返回当前 DispFPHTMLDocument,修改其背景色并显示其标题。

Sub Document()
'Returns the active HTML document

    Dim objApp As FrontPage.Application
    Dim objDoc As DispFPHTMLDocument
    Dim objPgeWdw As PageWindowEx
    Set objApp = FrontPage.Application
    'Create reference to active page window
    Set objPgeWdw = objApp.ActivePageWindow
    'Create reference to open document
    Set objDoc = objPgeWdw.Document

    With objDoc
        'Display title and change background color
        MsgBox .Title
        .bgColor = "FFFFFF"
    End With
End Sub