FrontPage VBA教程:MetaTag属性

返回指定 WebFile对象的 MetaTags集合。

VBA示例

本示例在 META 标记集合中循环,并将文件名和 META 标记名称连成myReturnInfo 字符串。


Private Sub GetMetaTagInfo_Click()
 Dim myWeb As WebEx
 Dim myFiles As WebFiles
 Dim myFile As WebFile
 Dim myMetaTags As MetaTags
 Dim myMetaTag As Variant
 Dim myFileName As String
 Dim myMetaTagName As String
 Dim myReturnInfo As String
 Set myWeb = ActiveWeb
 Set myFiles = myWeb.RootFolder.Files
 With myWeb
      For Each myFile In myFiles
          Set myMetaTags = myFile.MetaTags
          For Each myMetaTag In myMetaTags
               myFileName = myFile.Name
               myMetaTagName = myMetaTag
               myReturnInfo = myFileName & ": " _
                   & myMetaTagName
          Next
      Next
 End With
End Sub

上页:FrontPage VBA教程:MaxLength属性 下页:FrontPage VBA教程:mimeType 类型

FrontPage VBA教程:MetaTag属性

FrontPage VBA教程:mimeType 类型 FrontPage VBA教程:MinimumValue属性
FrontPage VBA教程:MonthsShown属性 FrontPage VBA教程:mseMode属性
FrontPage VBA教程:Name属性 FrontPage VBA教程:nameProp属性
FrontPage VBA教程:NavigationNode属性 FrontPage VBA教程:NewForm属性
FrontPage VBA教程:NewPageorWeb属性 FrontPage VBA教程:Next属性
FrontPage VBA教程:NumberOfLines属性 FrontPage VBA教程:OlderFile属性
FrontPage VBA教程:onafterupdate属性 FrontPage VBA教程:onbeforeupdate属性
FrontPage VBA教程:onclick属性 FrontPage VBA教程:ondblclick属性
FrontPage VBA教程:ondragstart属性 FrontPage VBA教程:onhelp属性
FrontPage VBA教程:onkeydown属性 FrontPage VBA教程:onkeypress属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号