A Robert le gustaría tener una macro que cambie el género de los pronombres en los documentos y se pregunta si, quizás, hay algo sugerido para hacer tales cambios.

Si está buscando una macro para cambiar el género de todos los pronombres en un documento, eso es relativamente sencillo; todo lo que necesita es una que realice operaciones de búsqueda universal y reemplace los pronombres masculinos y los cambie a pronombres femeninos, o viceversa. .

Sin embargo, si está buscando una macro que alterne pronombres (el primer uso es masculino, el segundo es femenino, etc.) como se hace a menudo en la escritura de no ficción, esa es una historia diferente. Es mejor dejarlo en manos de un editor experto para que tome las decisiones sobre qué cambios realizar y hasta dónde extender esos cambios.

Por lo tanto, suponiendo que desee seguir la ruta universal, el mejor enfoque es utilizar una macro que utilice la búsqueda con comodines utilizando pares de pronombres (un pronombre masculino con el pronombre femenino correspondiente) para especificar los cambios que se realizarán. El siguiente ejemplo utiliza este enfoque para cambiar él, él, él y él mismo a las formas femeninas (ella, ella, ella, ella misma) o viceversa.

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

Tenga en cuenta que hay tres macros en la lista. Debe usar la macro MaleToFemale para cambiar de pronombres masculinos a pronombres femeninos y la macro FemaleToMale para cambiar la otra dirección. Los pares de pronombres en sí mismos están en la macro GenderChange, en los arreglos masculino y femenino.

Tenga en cuenta que cada pronombre se incluye en la matriz tres veces utilizando diferentes combinaciones de caracteres en mayúsculas y minúsculas. Esto se debe a que la búsqueda con comodines distingue entre mayúsculas y minúsculas, por lo que son necesarias las diferentes búsquedas para cada caso.

Tenga en cuenta que la macro también activa Control de cambios antes de realizar cambios. De esa manera, todos los cambios realizados por la macro se anotan en el documento y, a continuación, puede utilizar el proceso de resolución de Seguimiento de cambios habitual para evaluar cada cambio realizado. Esto se hace porque el idioma inglés es terriblemente impreciso y hay ambigüedad en el uso de algunas palabras que generalmente consideramos pronombres. Por ejemplo, las palabras «su» y «ella» se pueden utilizar como pronombres personales posesivos o como adjetivos posesivos. Solo es posible distinguir el uso adecuado al mirarlos en contexto, que es algo que la macro obviamente no hace. En pocas palabras: lea después de cambiar para asegurarse de que su documento aún tiene sentido.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (12896) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.