Beim Formatieren von Dokumenten muss häufig ein bestimmtes Wort oder eine bestimmte Passage fett und kursiv formatiert werden. Word enthält Tools (in der Formatierungssymbolleiste), die fett und kursiv, aber nicht fett kursiv angewendet werden. Ich hatte es satt, zwei Klicks zu machen, und habe mein eigenes Tool erstellt, um beide Formate gleichzeitig anzuwenden. Das resultierende Makro kann dann einem Symbolleistenwerkzeug direkt neben den Werkzeugen Fett und Kursiv zugewiesen werden.

Der einfachste Weg, dies zu tun, ist mit einem Makro wie folgt:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Dieses Makro aktiviert die Attribute, schaltet jedoch nicht um. Mit anderen Worten, Sie können Fettschrift nicht mit demselben Makro deaktivieren, wie dies mit den einzelnen Werkzeugen Fett und Kursiv möglich ist. Dies führte zum Makro „nächste Generation“, das den Status des ausgewählten Textes überprüft, bevor Änderungen vorgenommen werden:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Die ersten Zeilen des Makros erhöhen eine Variable (BIStatus), je nachdem, ob die Eigenschaften Fett oder Kursiv für die Auswahl festgelegt sind. Wenn diese Zeilen vollständig sind, ist BIStatus 0, wenn der ausgewählte Text weder fett noch kursiv ist, 1, wenn er fett oder kursiv ist, oder 2, wenn er sowohl fett als auch kursiv ist.

Wenn BIStatus auf 0 oder 1 festgelegt ist, werden die Eigenschaften Fett und Kursiv für den ausgewählten Text festgelegt. Wenn sie zuvor festgelegt wurden (BIStatus ist 2), werden beide Eigenschaften deaktiviert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (606) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: