Tecnologia al servei de la correcció

Macro afegeixAutocorrecció

Sub afegeixAutocorrecció()
'
' Macro afegeixAutotext
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'
'
    AutoCorrect.Entries.Add Name:="aburrit", Value:="avorrit"
    AutoCorrect.Entries.Add Name:="aigues", Value:="aigües"
    AutoCorrect.Entries.Add Name:="albarcoc", Value:="albercoc"
    AutoCorrect.Entries.Add Name:="alcol", Value:="alcohol"
    AutoCorrect.Entries.Add Name:="alesores", Value:="aleshores"
    AutoCorrect.Entries.Add Name:="aqí", Value:="aquí"
    AutoCorrect.Entries.Add Name:="aqui", Value:="aquí"
    AutoCorrect.Entries.Add Name:="arguir", Value:="argüir"
    AutoCorrect.Entries.Add Name:="arrecada", Value:="arracada"
    AutoCorrect.Entries.Add Name:="asoleiat", Value:="assolellat"
    AutoCorrect.Entries.Add Name:="camvi", Value:="canvi"
    AutoCorrect.Entries.Add Name:="canvii", Value:="canviï"
    AutoCorrect.Entries.Add Name:="càstic", Value:="càstig"
    AutoCorrect.Entries.Add Name:="desde els", Value:="des dels"
    AutoCorrect.Entries.Add Name:="desde el", Value:="des del"
    AutoCorrect.Entries.Add Name:="embaixada", Value:="ambaixada"
    AutoCorrect.Entries.Add Name:="endevant", Value:="endavant"
    AutoCorrect.Entries.Add Name:="esbergínia", Value:="albergínia"
    AutoCorrect.Entries.Add Name:="escarxofes", Value:="carxofes"
    AutoCorrect.Entries.Add Name:="estovalles", Value:="tovalles"
    AutoCorrect.Entries.Add Name:="extrany", Value:="estrany"
    AutoCorrect.Entries.Add Name:="gavinet", Value:="ganivet"
    AutoCorrect.Entries.Add Name:="hi han", Value:="hi ha"
    AutoCorrect.Entries.Add Name:="hi havien", Value:="hi havia"
    AutoCorrect.Entries.Add Name:="linguista", Value:="lingüista"
    AutoCorrect.Entries.Add Name:="linguistica", Value:="lingüística"
    AutoCorrect.Entries.Add Name:="linguística", Value:="lingüística"
    AutoCorrect.Entries.Add Name:="lingüistica", Value:="lingüística"
    AutoCorrect.Entries.Add Name:="l'universitat", Value:="la universitat"
    AutoCorrect.Entries.Add Name:="metgesa", Value:="metgessa"
    AutoCorrect.Entries.Add Name:="neixement", Value:="naixement"
    AutoCorrect.Entries.Add Name:="presupost", Value:="pressupost"
    AutoCorrect.Entries.Add Name:="per els", Value:="per els"
    AutoCorrect.Entries.Add Name:="per el", Value:="per el"
    AutoCorrect.Entries.Add Name:="quasibé", Value:="gairebé"
    AutoCorrect.Entries.Add Name:="radera", Value:="darrera"
    AutoCorrect.Entries.Add Name:="sab", Value:="sap"
    AutoCorrect.Entries.Add Name:="saver", Value:="saber"
    AutoCorrect.Entries.Add Name:="sonriure", Value:="somriure"
    AutoCorrect.Entries.Add Name:="sord-mut", Value:="sordmut"
    AutoCorrect.Entries.Add Name:="tarjeta", Value:="targeta"
    AutoCorrect.Entries.Add Name:="taronjes", Value:="taronges"
    AutoCorrect.Entries.Add Name:="troç", Value:="tros"
    AutoCorrect.Entries.Add Name:="vice-rector", Value:="vicerector"
    AutoCorrect.Entries.Add Name:="vui", Value:="vull"

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