返回与 HTML 网页的封闭 body 标记对应的 IHTMLElement。HTML 的 body 元素定义了网页的某些设置,例如文本颜色和背景色。
expression.body
expression 必选。返回 DispFPHTMLDocument 对象的表达式。
下列示例创建对 body 元素的引用并修改其背景色和文本颜色。此时该文档的背景将呈现白色,前景文本将呈现蓝色。
Sub DocumentBody()
'Returns the active HTML document and modifies the body
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Dim objPgeWdw As PageWindowEx
Dim objBody As IHTMLBodyElement
Set objApp = FrontPage.Application
'Create reference to active page window
Set objPgeWdw = objApp.ActivePageWindow
'Create reference to open document
Set objDoc = objPgeWdw.Document
Set objBody = objDoc.body
'Set background color to white and text color to blue
With objBody
.bgColor = "FFFFFF"
.Text = "3333FF"
End With
End Sub