Robert aimerait avoir une macro qui change le genre des pronoms dans les documents et se demande si, peut-être, il y a quelque chose de suggéré pour faire de tels changements.

Si vous recherchez une macro pour changer le genre de tous les pronoms dans un document, c’est relativement simple – tout ce dont vous avez besoin est une macro qui effectuera une recherche universelle et remplacera les opérations pour les pronoms masculins et les changera en pronoms féminins, ou vice-versa .

Si, cependant, vous recherchez une macro qui alternera les pronoms – le premier usage est masculin, le second est féminin, etc. – comme cela se fait souvent dans l’écriture non romanesque, c’est une autre histoire. Il est préférable de laisser cela à un éditeur expérimenté pour juger des modifications à apporter et de l’étendue de ces modifications.

Donc, en supposant que vous souhaitiez emprunter la voie universelle, la meilleure approche consiste à utiliser une macro qui utilise une recherche par caractères génériques en utilisant des paires de pronoms (un pronom masculin avec un pronom féminin correspondant) pour spécifier les changements à apporter. L’exemple suivant utilise une telle approche pour changer lui, lui, le sien et lui-même en formes féminines (elle, elle, la sienne, elle-même) ou vice versa.

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

Notez qu’il existe trois macros dans la liste. Vous devez utiliser la macro MaleToFemale pour passer des pronoms masculins aux pronoms féminins et la macro FemaleToMale pour changer la direction opposée. Les paires de pronoms eux-mêmes sont dans la macro GenderChange, dans les tableaux masculins et féminins.

Notez que chaque pronom est inclus dans le tableau trois fois en utilisant différentes combinaisons de caractères majuscules et minuscules. En effet, la recherche générique est sensible à la casse, de sorte que les différentes recherches pour chaque instance de cas sont nécessaires.

Notez que la macro active également le suivi des modifications avant d’apporter des modifications. De cette façon, chaque modification apportée par la macro est notée dans le document et vous pouvez ensuite utiliser le processus de résolution régulier Suivi des modifications pour évaluer chaque modification apportée. Ceci est fait parce que la langue anglaise est terriblement imprécise et qu’il y a une ambiguïté dans l’utilisation de certains mots que nous considérons généralement comme des pronoms. Par exemple, les mots «son» et «le sien» peuvent être utilisés comme pronoms personnels possessifs ou comme adjectifs possessifs. Il est seulement possible de distinguer l’utilisation appropriée en les regardant dans leur contexte, ce que la macro ne fait évidemment pas. En bout de ligne: lisez après avoir changé pour vous assurer que votre document a toujours du sens.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (12896) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.