Propiedad Application.TemplateFolderPath (Publisher)

Devuelve una cadena que representa la ubicación donde se almacenan las plantillas de Microsoft Publisher. Solo lectura.

Sintaxis

expresión. TemplateFolderPath

expresión Variable que representa un objeto Application.

Valor devuelto

String

Ejemplo

En este ejemplo se crea una nueva publicación y se edita la página maestra para que contenga un número de página en una estrella en la esquina superior izquierda de la página; a continuación, guarda la nueva publicación en la ubicación de la carpeta de plantillas para que se pueda usar como plantilla.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.