Tecnologia al servei de la correcció

Macro afegeixAbreviatures

Sub afegeixAbreviatures()
'
' Macro afegeixAbreviatures
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'
    AutoCorrect.Entries.Add Name:="UPF+", Value:="Universitat ""Pompeu Fabra"""
    AutoCorrect.Entries.Add Name:="DP+", Value:="Departament de Presidència"
    AutoCorrect.Entries.Add Name:="DARP+", Value:="Departament d'Agricultura, Ramaderia i Pesca"
    AutoCorrect.Entries.Add Name:="DBF+", Value:="Departament de Benestar i Família"
    AutoCorrect.Entries.Add Name:="DCTC+", Value:="Departament de Comerç, Turisme i Consum"
    AutoCorrect.Entries.Add Name:="DC+", Value:="Departament de Cultura"
    AutoCorrect.Entries.Add Name:="DEF+", Value:="Departament d'Economia i Finances"
    AutoCorrect.Entries.Add Name:="DE+", Value:="Departament d'Educació"
    AutoCorrect.Entries.Add Name:="DGAP+", Value:="Departament de Governació i Administracions Públiques"
    AutoCorrect.Entries.Add Name:="DI+", Value:="Departament d'Interior"
    AutoCorrect.Entries.Add Name:="DJ+", Value:="Departament de Justícia"
    AutoCorrect.Entries.Add Name:="DMAH+", Value:="Departament de Medi Ambient i Habitatge"
    AutoCorrect.Entries.Add Name:="DPTOP+", Value:="Departament de Política Territorial i Obres Públiques"
    AutoCorrect.Entries.Add Name:="DRIP+", Value:="Departament de Relacions Institucionals i Participació"
    AutoCorrect.Entries.Add Name:="DS+", Value:="Departament de Salut"
    AutoCorrect.Entries.Add Name:="DTI+", Value:="Departament de Treball i Indústria"
    AutoCorrect.Entries.Add Name:="DURSI+", Value:="Departament d'Universitats, Recerca i Societat de la Informació"
    AutoCorrect.Entries.Add Name:="PGC+", Value:="President de la Generalitat de Catalunya"
    AutoCorrect.Entries.Add Name:="CEC+", Value:="Conseller en Cap"
    AutoCorrect.Entries.Add Name:="CARP+", Value:="Conseller d'Agricultura, Ramaderia i Pesca"
    AutoCorrect.Entries.Add Name:="CBF+", Value:="Consellera de Benestar i Família"
    AutoCorrect.Entries.Add Name:="CCTC+", Value:="Conseller de Comerç, Turisme i Consum"
    AutoCorrect.Entries.Add Name:="CC+", Value:="Consellera de Cultura"
    AutoCorrect.Entries.Add Name:="CEF+", Value:="Conseller d'Economia i Finances"
    AutoCorrect.Entries.Add Name:="CE+", Value:="Consellera d'Educació"
    AutoCorrect.Entries.Add Name:="CGAP+", Value:="Conseller de Governació i Administracions Públiques"
    AutoCorrect.Entries.Add Name:="CI+", Value:="Consellera d'Interior"
    AutoCorrect.Entries.Add Name:="CJ+", Value:="Conseller de Justícia"
    AutoCorrect.Entries.Add Name:="CMAH+", Value:="Conseller de Medi Ambient i Habitatge"
    AutoCorrect.Entries.Add Name:="CPTOP+", Value:="Conseller de Política Territorial i Obres Públiques"
    AutoCorrect.Entries.Add Name:="CRIP+", Value:="Conseller de Relacions Institucionals i Participació"
    AutoCorrect.Entries.Add Name:="CS+", Value:="Consellera de Salut"
    AutoCorrect.Entries.Add Name:="CTI+", Value:="Conseller de Treball i Indústria"
    AutoCorrect.Entries.Add Name:="CURSI+", Value:="Conseller d'Universitats, Recerca i Societat de la Informació"
    AutoCorrect.Entries.Add Name:="ILC+", Value:="Institució de les Lletres Catalanes"

    With AutoCorrect
        .CorrectInitialCaps = True
        .CorrectSentenceCaps = True
        .CorrectDays = False
        .CorrectCapsLock = True
        .ReplaceText = True
    End With
End Sub