多个对象 DispFPHTMLDocument WebEx |
代表当前窗口中的 HTML 文档。DispFPHTMLDocument 对象包含与 HTML 网页相关的所有属性信息,例如背景色、链接颜色和样式表,还包含作用于数据的方法,例如 CreateElement 和 ExecCommand 方法。
若要访问 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