TextStyle-Objekt (Publisher)

Artikel
04/07/2023

Stellt eine einzelne integrierte oder benutzerdefinierte Formatvorlage. Das TextStyle -Objekt enthält Formatattribute (Schriftart, Schriftschnitt, Absatzabstand usw.) als Eigenschaften des TextStyle -Objekts.

Das TextStyle -Objekt ist ein Mitglied der TextStyles Auflistung. Die TextStyles -Auflistung enthält alle Formatvorlagen im angegebenen Dokument.

Hinweise

Verwenden Sie TextStyles (Index), wobei index die Textformatnummer oder der Name ist, um ein einzelnes TextStyle-Objekt zurückzugeben. Sie müssen die Rechtschreibung und die Abstände zwischen den Namen der Formatvorlage, aber nicht unbedingt die Groß-/Kleinschreibung exakt übereinstimmen.

Verwenden Sie die TextStyles.Add-Methode , um eine neue Formatvorlage zu erstellen.

Um eine Formatvorlage auf einen Bereich, einen Absatz oder mehrere Absätze anzuwenden, legen Sie die ParagraphFormat.TextStyle-Eigenschaft auf einen benutzerdefinierten oder integrierten Formatvorlagennamen fest.

Beispiel

Das folgende Beispiel zeigt den Formatvorlagennamen und die Basisformatvorlage der ersten Formatvorlage in der TextStyles -Auflistung.

Sub BaseStyleName() 
 With ActiveDocument.TextStyles(1) 
 MsgBox "Style name= " & .Name _ 
 & vbCr & "Base style= " & .BaseStyle 
 End With 
End Sub

Im folgenden Beispiel wird eine neue Formatvorlage erstellt und wendet es auf den Absatz an der Cursorposition.

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
End Sub

Methoden

Delete

Eigenschaften

Siehe auch

Referenz zum Verlegerobjektmodell

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.

Freigeben über