Word include un’ottima funzionalità che ti consente di semplificare automaticamente ciò che digiti. Questa funzionalità, denominata Correzione automatica, apporta automaticamente modifiche a ciò che digiti per adattarsi a regole specifiche selezionate. Ad esempio, puoi fare in modo che Word metta in maiuscolo la prima parola delle tue frasi o automaticamente in maiuscolo i nomi dei giorni.

(È possibile visualizzare le impostazioni di correzione automatica selezionando Correzione automatica dal menu Strumenti.)

Ci sono momenti in cui la correzione automatica può intralciare ciò che stai digitando. Ciò è particolarmente vero se stai digitando materiale tecnico.

Tuttavia, non esiste un “interruttore principale” che consente di disattivare la funzionalità di correzione automatica. È invece necessario visualizzare la finestra di dialogo e disattivare a turno ciascuna casella di controllo. Quando in seguito lo vuoi riaccendere, devi ripetere lo stesso processo.

La seguente macro può disattivare rapidamente le impostazioni di correzione automatica. Quando si esegue la macro una seconda volta, le impostazioni di Correzione automatica vengono reimpostate ai valori originali. La macro è progettata per essere aggiunta a una barra degli strumenti, quindi è possibile fare clic sullo strumento per modificare la correzione automatica.

Sub ToggleAC()

Dim State As String     Dim ACVal As Integer     Dim VarPass As Variant     Dim VarNum As Integer

VarNum = 0     For Each VarPass In ActiveDocument.Variables         If VarPass.Name = "ACState" Then VarNum = VarPass.Index     Next VarPass

If VarNum <> 0 Then         State = ActiveDocument.Variables.Item(VarNum).Value         ACVal = Val(Mid$(State$, 1, 1))

If ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True         ACVal = Val(Mid$(State$, 2, 1))

If ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True         ACVal = Val(Mid$(State$, 3, 1))

If ACVal <> 0 Then AutoCorrect.CorrectDays = True         ACVal = Val(Mid$(State$, 4, 1))

If ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True         ACVal = Val(Mid$(State$, 5, 1))

If ACVal <> 0 Then AutoCorrect.ReplaceText = True         ACVal = Val(Mid$(State$, 6, 1))

If ACVal <> 0 Then Options.AutoFormatAsYouTypeReplaceQuotes = True         ActiveDocument.Variables.Item(VarNum).Delete     Else         State = ""

State = State & Mid(Str(Abs(AutoCorrect.CorrectInitialCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectSentenceCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectDays)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectCapsLock)), 2)

State = State & Mid(Str(Abs(AutoCorrect.ReplaceText)), 2)

State = State & Mid(Str(Abs(Options.AutoFormatAsYouTypeReplaceQuotes)), 2)

ActiveDocument.Variables.Add "ACState", State         With AutoCorrect             .CorrectInitialCaps = False             .CorrectSentenceCaps = False             .CorrectDays = False             .CorrectCapsLock = False             .ReplaceText = False         End With         Options.AutoFormatAsYouTypeReplaceQuotes = True     End If End Sub

_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 (1738) si applica a Microsoft Word 97, 2000, 2002 e 2003.