La funzione di correzione automatica di Word può essere utile quando scrivi, in quanto può sostituire i tuoi “errori di digitazione” con ciò che intendi veramente in primo luogo. La correzione automatica viene già configurata con molti degli errori di digitazione comuni, ma per rendere lo strumento veramente utile è necessario aggiungere le proprie voci di correzione automatica che riflettono le proprie abitudini di digitazione personali.

Il modo normale per aggiungere le voci di Correzione automatica è immetterle, una alla volta, utilizzando la scheda Correzione automatica della finestra di dialogo Correzione automatica (Strumenti | Correzione automatica). Cosa succede se si desidera importare un bel po ‘di voci di correzione automatica, invece di digitarle? Informazioni utili sull’esportazione e l’importazione di voci di correzione automatica si trovano qui, su http://word.mvps.org [sito MVP di Word]:

http://wordmvp.com/FAQs/Customization/ExportAutocorrect.htm

Come puoi vedere dal sito, la linea di fondo è che non esiste una funzione intrinseca all’interno di Word che ti consenta di importare voci di correzione automatica. Quindi, sei lasciato a usare una macro per fare il lavoro. La seguente è una di queste macro, che importerà le voci e le inserirà direttamente nell’elenco di correzione automatica.

Sub AddToTheAutoCorrectList()

Dim r As Range, r1 As Range     Dim par As Paragraph, bo As Boolean     Dim pars As Paragraphs     Dim ACE As AutoCorrectEntry     Dim ACEs As AutoCorrectEntries     Dim ActD As Document

Set ActD = ActiveDocument     Set pars = ActD.Paragraphs     Set r1 = Selection.Range     Set r = Selection.Range     Set ACEs = Application.AutoCorrect.Entries

On Error Resume Next     For Each par In pars         If par.Range.End = ActD.Content.End Then Exit Sub         r1.Start = par.Range.Start         r1.End = r1.Start         r1.MoveEndUntil vbTab         r.Start = r1.End + 1         r.End = par.Range.End - 1         If Len(r1.Text) > 0 Or Len(r.Text) > 0 Then             If Len(ACEs(r1.Text).Value) > 0 Then                 bo = Repl(ACEs, r, r1)

Else                 bo = True             End If             If bo Then ACEs.Add r1.Text, r.Text         End If     Next End Sub
Private Function Repl(a As AutoCorrectEntries, _   r As Range, r1 As Range) As Boolean     If a(r1.Text).Value <> r.Text Then         Repl = MsgBox("To replace " & UCase(a(r1.Text).Value) & _           " with " & UCase(r.Text) & " click OK", vbYesNo + _           vbQuestion, "REPLACE ENTRY?") = vbYes     End If End Function

Per utilizzare la macro, assicurati di inserire una voce per paragrafo in un documento. (Non dovrebbe esserci nient’altro nel documento.) La parte “Sostituisci” della voce dovrebbe essere separata dal “Con”

parte da un carattere di tabulazione. Se la macro rileva una voce di Correzione automatica proposta che sovrascriverà una voce esistente, viene chiesto se si desidera apportare la modifica.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1732) si applica a Microsoft Word 97, 2000, 2002 e 2003.