Macra políticament correcta

Sub feminitza()
'
' creada per Lluís de Yzaguirre
' millorada amb Beatriz Lehmann
' copyright 03/04/2005
'
' plurals
substitueixMot "directors", "directors o directores"
substitueixMot "degans", "degans o deganes"
substitueixMot "rectors", "rectors o rectores"
substitueixMot "catedrātics", "catedrātics o catedrātiques"
substitueixMot "professors", "professors o professores"
substitueixMot "becaris", "becaris o becāries"
substitueixMot "secretaris", "secretaris o secretāries"
substitueixMot "coordinadors", "coordinadors o coordinadores"
' singulars
substitueixMot "director", "director o directora"
substitueixMot "degā", "degā o degana"
substitueixMot "rector", "rector o rectora"
substitueixMot "catedrātic", "catedrātic o catedrātica"
substitueixMot "professor", "professor o professora"
substitueixMot "becari", "becari o becāria"
substitueixMot "secretari", "secretari o secretāria"
substitueixMot "coordinador", "coordinador o coordinadora"
End Sub



Sub substitueixMot(arg1$, arg2$)
'
' Macro substitueix X per Y
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
' si no vols veure els canvis de color vermell, desactiva la
' línia precedent posant una marca de comentari=apōstrof
' i canvia més avall .Format = True per .Format = False

    With Selection.Find
        .Text = arg1$
        .Replacement.Text = arg2$
        .Forward = True
        .Wrap = wdFindContinue
'        .Format = False
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Per comentaris i observacions, poseu-vos en contacte amb Lluís de Yzaguirre

Pàgina servida per