La función de Autocorrección de Word puede ser útil cuando está escribiendo, ya que puede reemplazar sus «errores de escritura» con lo que realmente pretendía en primer lugar. Autocorrección ya viene configurada con muchos de los errores de escritura comunes, pero para que la herramienta sea realmente útil, debe agregar sus propias entradas de Autocorrección que reflejen sus hábitos de escritura personales.

La forma normal de agregar entradas de Autocorrección es ingresarlas, una a la vez, usando la pestaña Autocorrección del cuadro de diálogo Autocorrección (Herramientas | Autocorrección). ¿Qué sucede si desea importar bastantes entradas de Autocorrección, en lugar de escribirlas? La información útil sobre la exportación e importación de entradas de Autocorrección se encuentra aquí, en el http://word.mvps.org [sitio de Word MVP]:

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

Como puede ver en el sitio, la conclusión es que no existe una función intrínseca dentro de Word que le permita importar entradas de Autocorrección. Por lo tanto, debe usar una macro para hacer el trabajo. La siguiente es una de esas macros, que importará entradas y las colocará directamente en la lista de Autocorrección.

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

Para utilizar la macro, asegúrese de colocar una entrada por párrafo en un documento. (No debe haber nada más en el documento.) La parte «Reemplazar» de la entrada debe estar separada de «Con»

parte por un carácter de tabulación. Si la macro encuentra una entrada de Autocorrección propuesta que sobrescribirá una entrada existente, se le preguntará si desea realizar el cambio.

_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 (1732) se aplica a Microsoft Word 97, 2000, 2002 y 2003.