body 属性


返回与 HTML 网页的封闭 body 标记对应的 IHTMLElement。HTML 的 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