Edit

Share via

Application.TemplateFolderPath property (Publisher)

  • Article

Returns a String that represents the location where Microsoft Publisher templates are stored. Read-only.

Syntax

expression.TemplateFolderPath

expression A variable that represents an Application object.

Return value

String

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; it then saves the new publication to the template folder location so that 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.