Partager via

Propriété Application.TemplateFolderPath (Publisher)

  • Article

Renvoie une chaîne qui représente l'emplacement où sont stockés les modèles de Microsoft Publisher. En lecture seule.

Syntaxe

expression. TemplateFolderPath

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

String

Exemple

Cet exemple crée une composition et modifie la page maître pour qu’elle contienne un numéro de page dans une étoile dans le coin supérieur gauche de la page ; il enregistre ensuite la nouvelle publication dans l’emplacement du dossier de modèle afin qu’elle puisse être utilisée comme modèle.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.