Nathan stößt häufig auf ein Problem mit Personen, die Berufsbezeichnungen (z. B. „Der Finanzmanager muss …​“) in Dokumenten großschreiben.

Er möchte, dass ein Makro prüft, ob ein Managementtitel verwendet wird, und ihn in Kleinbuchstaben schreibt, es sei denn, es gibt einen triftigen Grund, das erste Wort zu Beginn des Satzes mit einem Anfangsbuchstaben zu versehen. Er fragt sich, ob es möglich ist, ohne Eingabe aller dreißig Managementtitel einen Platzhalter einzurichten, der zu einer Zwei-Wort-Phrase passt, bei der das zweite Wort „Manager“ oder „Manager“ ist.

Es ist möglich, eine Platzhaltersuche durchzuführen, um die Arten von Instanzen zu finden, die Sie suchen. Sie müssen lediglich eine erweiterte Suche durchführen, sicherstellen, dass das Kontrollkästchen Platzhalter verwenden aktiviert ist, und dieses Muster dann im Feld Suchen nach verwenden:

<[A-Za-z][a-z]{1,}>^32[Mm]anager*>

Das Muster findet zwei Wörter, wobei das zweite Wort Manager oder Manager ist. Es werden die Wörter gefunden, wenn beide oder eines der Wörter groß geschrieben sind oder beide Wörter in Kleinbuchstaben geschrieben sind.

Das Problem ist, dass es nicht möglich ist, ein Wort, das mithilfe von Platzhaltern gefunden wurde, in Kleinbuchstaben zu ändern. Dies bedeutet, dass Sie manuell überprüfen müssen, was gefunden wurde, und dann alle erforderlichen Änderungen von Hand vornehmen müssen. Wenn Sie dies nur gelegentlich tun müssen, ist dies nicht zu lästig, da das Dialogfeld Suchen und Ersetzen nicht modal ist. (Das heißt, Sie können das Dialogfeld auf Ihrem Bildschirm geöffnet lassen, während Sie das Dokument bearbeiten, und dann im Dialogfeld auf Weiter suchen klicken, um das nächste übereinstimmende Vorkommen zu finden.)

Wenn Sie solche Änderungen häufig vornehmen müssen, besteht die einzige Alternative darin, ein Makro zu erstellen, das die Änderungen für Sie übernimmt. Das folgende Makro sucht nach demselben Muster wie oben angegeben und ändert dann die Großschreibung von Berufsbezeichnungen korrekt. Das Makro findet Jobtitel, die aus zwei Wörtern bestehen, wobei das zweite Wort „Manager“, „Manager“, „Manager“ oder „Manager“ ist. Anschließend wird die Groß- und Kleinschreibung aus den Wörtern entfernt, es sei denn, der Titel beginnt einen Satz. In diesem Fall wird nur die Großschreibung aus dem zweiten Wort entfernt.

Sub FixManagerCapitalisation()

Dim aRange As Range     Dim bRange As Range

With Selection.Find         .ClearFormatting         .Text = "<[A-Za-z][a-z]{1,}>^32[Mm]anager*>"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindAsk         .MatchCase = False         .MatchWildcards = True         Do While .Execute             Set aRange = Selection.Range             Set bRange = Selection.Range             bRange.MoveEnd unit:=wdSentence             If bRange.Text <> Selection.Sentences(1).Text Then                 aRange = LCase(aRange.Words(1).Text) & Trim(aRange.Words(2))

End If             aRange = aRange.Words(1) & Trim(LCase(aRange.Words(2).Text))

aRange.Start = aRange.End             aRange.Select             .ClearFormatting         Loop     End With End Sub

_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 (13080) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.