Tecnologia al servei de la correcció

Macro afegeixAutotext

Aquesta macro introdueix uns valors d'autotext (text que el TT et suggereix complet a mesura que el vas introduint). 

'
' Macro afegeixAutotext
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'
'
    NormalTemplate.AutoTextEntries.Add Name:="Lluís de Yzaguirre i Maura", _
        Range:=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Universitat ""Pompeu Fabra""", _
        Range:=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Generalitat de Catalunya", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="majoria qualificada", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Comissió Europea", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Consell Europeu", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Constitució europea", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Drets Fonamentals", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Parlament Europeu", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="Unió Europea", Range _
        :=Selection.Range
    NormalTemplate.AutoTextEntries.Add Name:="actes legislatius", Range _
        :=Selection.Range
'    With AutoCorrect
'        .CorrectInitialCaps = True
'        .CorrectSentenceCaps = True
'        .CorrectDays = False
'        .CorrectCapsLock = True
'        .ReplaceText = True
'    End With
'    Application.DisplayAutoCompleteTips = True
End Sub
Nota: aquesta macro es pot incloure en un document que en faciliti la instal·lació com l'exemple AmpliaDiccionariPersonal.doc

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

Pàgina servida per XITAMI