FrontPage VBA教程:ApplyTemplate方法

此主题中的一些内容可能不适用于某些语言。

将现有 HTML 模板应用于当前站点。

expression.ApplyTemplate(TemplateDir, fApplyThemes, fOverWrite)

expression  必选。返回“应用于”列表中的对象之一的表达式。

TemplateDir  必选,String 类型。模板的路径。

fApplyThemes  可选。Boolean 类型。决定模板中的主题是否将应用于新站点。如果为 True,则主题将会应用于站点。如果为 False,则不会应用主题。默认值为 False。

fOverWrite  可选。Boolean 类型。决定是否覆盖当前模板。如果为 True,则当前模板将被覆盖。如果为 False,则不覆盖当前模板。默认值是 False。

VBA示例

下列示例使用 ApplyTemplate方法将指定模板添加到当前站点。调用该方法时 fApplyThemes参数和 fOverWrite参数都设为 False。主题不会应用到新站点,并且任何现有的主题都不会覆盖。


Sub UseTemplate()
'Applies a template to the current web without overwriting the original template
'or applying themes.
    Dim objApp As FrontPage.Application
    Dim objWeb As WebEx
    Dim strPath As String
    Dim strname As String
    Set objApp = FrontPage.Application
    Set objWeb = objApp.ActiveWeb
    'Set variable to template directory.
    strPath = "C:\Program Files\Microsoft Office\Templates\"
    'Prompt the user for the file name of the template
    strname = InputBox("Enter the file name of the template you wish to apply")
    'And the template name and directory to create a full path name
    strPath = strPath & strname
    'Apply the template to the new web
    objWeb.ApplyTemplate TemplateDir:=strPath, _
                         fApplyThemes:=False, fOverWrite:=False
End Sub

上页:FrontPage VBA教程:ApplyNavigationStructure方法 下页:FrontPage VBA教程:ApplyTheme方法

FrontPage VBA教程:ApplyTemplate方法

FrontPage VBA教程:ApplyTheme方法 FrontPage VBA教程:CancelRequests方法
FrontPage VBA教程:Checkin方法 FrontPage VBA教程:Checkout方法
FrontPage VBA教程:clear方法 FrontPage VBA教程:Close方法
FrontPage VBA教程:commit方法 FrontPage VBA教程:Copy方法
FrontPage VBA教程:createElement方法 FrontPage VBA教程:createStyleSheet方法
FrontPage VBA教程:createStyleState方法 FrontPage VBA教程:createUndoTransaction方法
FrontPage VBA教程:Delete方法 FrontPage VBA教程:Edit方法
FrontPage VBA教程:elementFromPoint方法 FrontPage VBA教程:execCommand方法
FrontPage VBA教程:getBotAttribute方法 FrontPage VBA教程:LocateFile方法
FrontPage VBA教程:LocateFolder方法 FrontPage VBA教程:LocatePage方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号