Функция автозамены Word может быть полезна, когда вы пишете, поскольку она может заменить ваши «опечатки» на то, что вы изначально планировали. Автозамена уже настроена со многими типичными опечатками, но чтобы сделать инструмент действительно полезным, вам нужно добавить свои собственные записи автозамены, отражающие ваши личные привычки набора текста.

Обычный способ добавления записей автозамены — вводить их по одной, используя вкладку Автозамена диалогового окна Автозамена (Сервис | Автозамена). Что делать, если вы хотите импортировать довольно много записей автозамены, а не вводить их? Полезная информация об экспорте и импорте записей автозамены находится здесь, на сайте http://word.mvps.org [сайт Word MVP]:

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

Как вы можете судить по сайту, суть в том, что в Word нет встроенной функции, позволяющей импортировать записи автозамены. Таким образом, вам остается использовать макрос для выполнения работы. Ниже приводится один из таких макросов, который импортирует записи и помещает их непосредственно в список автозамены.

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

Чтобы использовать макрос, просто убедитесь, что вы поместили одну запись на абзац в документе. (В документе не должно быть ничего другого.) Часть записи «Заменить» должна быть отделена от «С»

часть с помощью символа табуляции. Если макрос обнаруживает предложенную запись автозамены, которая перезапишет существующую запись, вас спросят, хотите ли вы внести изменение.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1732) применим к Microsoft Word 97, 2000, 2002 и 2003.