Auf Englisch lesen

Freigeben über


Font-Objekt (Publisher)

Enthält Schriftattribute (Name der Schriftart, Schriftgrad, Farbe usw.) für ein Objekt.

Hinweise

Verwenden Sie die TextStyle.Font-Eigenschaft , um das Font-Objekt zurückzugeben.

Beispiel

Der folgenden Anweisung wird die Auswahl fett formatiert.

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

Das folgende Beispiel formatiert den ersten Absatz in der aktiven Publikation mit Arial, 24 pt, kursiv.

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

The following example changes the formatting of the Heading 2 style in the active publication to Arial and bold.

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

Sie können ein Font-Objekt auch mit der TextRange.Duplicate-Eigenschaft duplizieren. Im folgenden Beispiel wird eine neue Zeichenformatvorlage mit der Zeichenformatierung aus der Auswahl sowie Kursivformatierung erstellt. Die Formatierung der Auswahl wird nicht geändert.

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
End Sub

Methoden

Eigenschaften

Siehe auch

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.