Robert hätte gerne ein Makro, das das Geschlecht der Pronomen in Dokumenten ändert, und fragt sich, ob möglicherweise etwas vorgeschlagen wird, um solche Änderungen vorzunehmen.

Wenn Sie nach einem Makro suchen, um das Geschlecht aller Pronomen in einem Dokument zu ändern, ist dies relativ einfach. Sie benötigen lediglich ein Makro, das universelle Such- und Ersetzungsoperationen für männliche Pronomen durchführt und diese in weibliche Pronomen ändert oder umgekehrt .

Wenn Sie jedoch nach einem Makro suchen, das die Pronomen abwechselt – die erste Verwendung ist männlich, die zweite weiblich usw. -, wie dies häufig beim Schreiben von Sachbüchern der Fall ist, ist dies eine andere Geschichte. Dies sollte am besten einem erfahrenen Redakteur überlassen werden, um zu beurteilen, welche Änderungen vorgenommen werden müssen und wie weit diese Änderungen erweitert werden müssen.

Angenommen, Sie möchten den universellen Weg gehen, besteht der beste Ansatz darin, ein Makro zu verwenden, das die Platzhaltersuche mithilfe von Pronomenpaaren (ein männliches Pronomen mit einem entsprechenden weiblichen Pronomen) verwendet, um die durchzuführenden Änderungen anzugeben. Das folgende Beispiel verwendet einen solchen Ansatz, um ihn, ihn, sich und sich selbst in die weiblichen Formen (sie, sie, ihre, sich selbst) umzuwandeln oder umgekehrt.

Sub MaleToFemale()

GenderChange (True)

End Sub
Sub FemaleToMale()

GenderChange (False)

End Sub
Sub GenderChange(isMale As Boolean)

Dim aRange As Range     Dim fTest As Boolean     Dim j As Long     Dim k As Long     Dim male     Dim female     male = Array("he", "He", "HE", "him", "Him", "HIM", "his", _                  "His", "HIS", "himself", "Himself", "HIMSELF")

female = Array("she", "She", "SHE", "her", "Her", "HER", "hers", _                    "Hers", "HERS", "herself", "Herself", "HERSELF")



ActiveDocument.TrackRevisions = True     Set aRange = ActiveDocument.Range     With aRange.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Highlight = False         .Forward = True         .Format = False         .Wrap = wdFindStop         .Format = False         .Highlight = False         .MatchCase = False         .MatchWholeWord = False         .MatchSoundsLike = False         .MatchAllWordForms = False         .MatchPrefix = False         .MatchWildcards = True

j = UBound(male)

For k = 0 To j             If isMale Then                 .Text = "<" & male(k) & ">"

.Replacement.Text = female(k)

Else                 .Text = "<" & female(k) & ">"

.Replacement.Text = male(k)

End If             fTest = aRange.Find.Execute(Replace:=wdReplaceAll)

Next k     End With     ActiveDocument.TrackRevisions = False End Sub

Beachten Sie, dass die Liste drei Makros enthält. Sie sollten das MaleToFemale-Makro verwenden, um von männlichen Pronomen zu weiblichen Pronomen zu wechseln, und das FemaleToMale-Makro, um die andere Richtung zu ändern. Die Pronomenpaare selbst befinden sich im GenderChange-Makro in den männlichen und weiblichen Arrays.

Beachten Sie, dass jedes Pronomen dreimal mit unterschiedlichen Kombinationen von Groß- und Kleinbuchstaben im Array enthalten ist. Dies liegt daran, dass bei der Platzhaltersuche zwischen Groß- und Kleinschreibung unterschieden wird, sodass für jede Fallinstanz unterschiedliche Suchvorgänge erforderlich sind.

Beachten Sie, dass das Makro auch Änderungen verfolgen aktiviert, bevor Änderungen vorgenommen werden. Auf diese Weise wird jede vom Makro vorgenommene Änderung im Dokument vermerkt, und Sie können dann den regulären Auflösungsprozess zum Verfolgen von Änderungen verwenden, um jede vorgenommene Änderung zu bewerten. Dies geschieht, weil die englische Sprache furchtbar ungenau ist und die Verwendung einiger Wörter, die wir im Allgemeinen als Pronomen betrachten, nicht eindeutig ist. Zum Beispiel können die Wörter „sein“ und „ihr“ entweder als Possessiv-Personalpronomen oder als Possessiv-Adjektive verwendet werden. Es ist nur möglich, die richtige Verwendung zu unterscheiden, wenn man sie im Kontext betrachtet, was das Makro offensichtlich nicht tut. Fazit: Lesen Sie nach dem Ändern, damit Sie sicherstellen können, dass Ihr Dokument immer noch Sinn macht.

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