Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt eine MsoTriState-Konstante zurück, die den Zustand der Bold-Eigenschaft für die Zeichen in einem Textbereich darstellt, oder legt sie fest. Lese-/Schreibzugriff.
Syntax
Ausdruck. Kühn
Ausdruck Eine Variable, die ein Font-Objekt darstellt.
Rückgabewert
MsoTriState
Hinweise
Der Wert der Bold -Eigenschaft kann eine der folgenden in der Microsoft Office-Typbibliothek deklarierten MsoTriState -Konstanten sein.
| Konstante | Beschreibung |
|---|---|
| msoFalse | Keines der Zeichen innerhalb des Bereichs ist fett formatiert. |
| msoTriStateMixed | Ein Rückgabewert, der angibt, dass der Bereich Text enthält, der fett formatiert ist, und einen Text, der nicht fett formatiert ist. |
| msoTriStateToggle | Ein Festgelegter Wert, der zwischen msoTrue und msoFalse wechselt. |
| msoTrue | Alle Zeichen innerhalb des Bereichs sind fett formatiert. |
Beispiel
In diesem Beispiel wird der gesamte Text im zweiten Abschnitt der aktiven Publikation getestet, und wenn er sowohl fett als auch nicht fett formatierten Text enthält, wird der gesamte Text fett formatiert. Wenn der Text vollständig fett oder nicht fett formatiert ist, wird eine Meldung angezeigt, die den Benutzer darüber informiert, dass keine gemischte Fettschrift vorhanden ist. Damit dieser Code ordnungsgemäß ausgeführt werden kann, müssen in der aktiven Publikation mindestens zwei Storys mit Text vorhanden sein.
Sub BoldStory()
Dim stf As Publisher.Font
Set stf = Application.ActiveDocument.Stories(2).TextRange.Font
With stf
If .Bold = msoTriStateMixed Then
.Bold = msoTrue
Else
MsgBox "Mixed bolding is not in this story."
End If
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.