Compartilhar via

Propriedade Application.TemplateFolderPath (Publisher)

  • Artigo

Retorna uma cadeia de caracteres que representa o local onde os modelos do Microsoft Publisher são armazenados. Somente leitura.

Sintaxe

expressão. TemplateFolderPath

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Cadeia de caracteres

Exemplo

Este exemplo cria uma nova publicação e edita a página mestra para conter um número de página em uma estrela no canto superior esquerdo da página; em seguida, salva a nova publicação no local da pasta de modelo para que ela possa ser usada como um modelo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.