TemplateFolderPath Property

expression.TemplateFolderPath

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a new publication and edits the master page to contain a page number in a star in the upper left corner of the page; then it saves the new publication to the template folder location so it can be used as a template.

Sub CreateNewPubTemplate()
    Dim AppPub As Application
    Dim DocPub As Document
    Dim strFolder As String

    Set AppPub = New Publisher.Application
    Set DocPub = AppPub.NewDocument
    AppPub.ActiveWindow.Visible = True
    strFolder = AppPub.TemplateFolderPath

    With DocPub
        With .MasterPages(1).Shapes.AddShape _
                (Type:=msoShape5pointStar, Left:=36, _
                Top:=36, Width:=50, Height:=50)
            .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
            With .TextFrame.TextRange
                .InsertPageNumber
                .ParagraphFormat.Alignment = pbParagraphAlignmentCenter
                With .Font
                    .Bold = msoTrue
                    .Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)
                    .Size = 12
                End With
            End With
        End With
        .SaveAs FileName:=strFolder & "\NewPubTemplt.pub"
    End With
End Sub