Freigeben über

Application.TemplateFolderPath-Eigenschaft (Publisher)

  • Artikel

Gibt eine Zeichenfolge, die den Speicherort darstellt, auf dem Microsoft Publisher-Vorlagen gespeichert sind. Schreibgeschützt.

Syntax

Ausdruck. TemplateFolderPath

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

In diesem Beispiel wird eine neue Publikation erstellt und die Gestaltungsvorlage so bearbeitet, dass sie eine Seitenzahl in einem Stern in der oberen linken Ecke der Seite enthält. Anschließend wird die neue Veröffentlichung am Speicherort des Vorlagenordners gespeichert, sodass sie als Vorlage verwendet werden kann.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.