FrontPage VBA教程:以编程方式修改网页

此主题阐述了如何在 Web对象模型环境中使用DispFPHTMLDocument对象元素来更改网页内容或仅访问网页内容以进行确认。

Microsoft Visual Basic 是您可利用来修改网页内容的强大工具。当您浏览对象浏览器时,您将会看到许多您很熟悉的与 Microsoft Internet Explorer 相同的组件类型。

提示  若要只查看与 FrontPage 的Page对象模型兼容的程序设计组件,请选择“FrontPageEditor”做为对象浏览器中的对象库。

您可以使用能通过PageWindowEx对象返回文档对象的ActiveDocumentDocument属性来访问网页的 HTML 元素。例如,下列语句更改活动网页窗口中网页的背景色。


ActivePageWindow.Document.bgColor = "DarkBlue"

下列示例检查活动文档中的特定超链接 (index.htm)。如果找到该超链接,则退出此过程,但是如果没有找到该超链接,此过程将检查活动文档是否为 index.htm,如果不是,则将该超链接添加到文档末尾。


Private Sub VerifyIndexLink()
    Dim myDoc As DispFPHTMLDocument
    Dim myLinks As Variant
    Dim myLink As Variant
    Dim myNumberOfLinks As Integer
    Dim myAddLink As Boolean
    Dim myLinkName As String
    Dim myLinkName2 As String
    Set myDoc = ActivePageWindow.Document
    Set myLinks = myDoc.Links
    myNumberOfLinks = myLinks.length
    myLinkName = "index.htm"
    myLinkName2 = """" & myLinkName & """"
    For Each myLink In myLinks
        If myLink = myLinkName Then
            myAddLink = True
            Exit For
        End If
    Next
    If myAddLink = False And myDoc.nameProp <> "index" Then
        Call myDoc.body.insertAdjacentHTML("BeforeEnd", "<a href=" _
            & myLinkName2 & ">" & myLinkName & "</a>")
        ActivePageWindow.Save
    End If
    End Sub

提示  请注意,在最后一个 If 语句中,活动网页窗口会在退出此过程之前保存。将这个语句添加到OnPageClose事件将非常合适。

上页:FrontPage VBA教程:用 MetaTags 管理发布 下页:FrontPage VBA教程:在 Microsoft FrontPage 中以编程方式设计动态元素

FrontPage VBA教程:以编程方式修改网页

FrontPage VBA教程:在 Microsoft FrontPage 中以编程方式设计动态元素 FrontPage VBA教程:返回集合中的对象
FrontPage VBA教程:共享 Microsoft FrontPage 程序设计工程 FrontPage VBA教程:在 Microsoft FrontPage 中管理版本控制工程
FrontPage VBA教程:了解 WebWindows 与 PageWindows FrontPage VBA教程:理解 Microsoft FrontPage 中的绝对和相对 URL 地址
FrontPage VBA教程:使用事件控制操作 FrontPage VBA教程:在无窗口环境下编码
FrontPage VBA教程:abort方法 FrontPage VBA教程:Activate方法
FrontPage VBA教程:Add方法 FrontPage VBA教程:AddChoice方法
FrontPage VBA教程:AddLinkBar方法 FrontPage VBA教程:ApplyChanges方法
FrontPage VBA教程:ApplyNavigationStructure方法 FrontPage VBA教程:ApplyTemplate方法
FrontPage VBA教程:ApplyTheme方法 FrontPage VBA教程:CancelRequests方法
FrontPage VBA教程:Checkin方法 FrontPage VBA教程:Checkout方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号