Word incluye una gran función que le permite simplificar automáticamente lo que escribe. Esta función, llamada Autocorrección, realiza cambios automáticamente en lo que escribe para ajustarse a las reglas específicas que seleccione. Por ejemplo, puede hacer que Word ponga en mayúscula la primera palabra de sus oraciones o en mayúsculas automáticamente los nombres de los días.

(Puede ver la configuración de Autocorrección seleccionando Autocorrección en el menú Herramientas).

Hay ocasiones en las que Autocorrección puede interferir con lo que está escribiendo. Esto es particularmente cierto si está escribiendo material técnico.

Sin embargo, no existe un «interruptor principal» que le permita desactivar la función de Autocorrección. En su lugar, debe mostrar el cuadro de diálogo y desactivar cada casilla de verificación, a su vez. Cuando más tarde quieras volver a encenderlo, debes volver a realizar el mismo proceso.

La siguiente macro puede desactivar rápidamente la configuración de Autocorrección. Cuando ejecuta la macro por segunda vez, la configuración de Autocorrección vuelve a sus valores originales. La macro está diseñada para agregarse a una barra de herramientas, y luego puede hacer clic en la herramienta para cambiar Autocorrección.

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: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1738) se aplica a Microsoft Word 97, 2000, 2002 y 2003.