Натан считает утомительным постоянно отображать вкладку «Автотекст» в диалоговом окне «Автозамена», когда он хочет отредактировать ряд записей автотекста. Ему интересно, есть ли какой-нибудь файл или другой способ, которым он может внести массовые изменения в записи.

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

Если все, что вам нужно сделать, это удалить несколько записей автотекста, одним из инструментов, который упростит задачу, является Организатор. Выполните следующие действия:

  1. Выберите «Шаблоны и надстройки» в меню «Инструменты». Word отображает диалоговое окно «Шаблоны и надстройки». (См. Рис. 1.)

  2. Нажмите кнопку «Организатор». Word отображает инструмент «Организатор».

  3. Убедитесь, что отображается вкладка Автотекст. Обратите внимание, что в правой части Организатора должна содержаться информация для файла Normal.dot. Если это так, перейдите к шагу 7. Если это не так или если ваши записи автотекста находятся в шаблоне, отличном от Normal.dot, перейдите к следующему шагу. (См. Рис. 2.)

  4. Нажмите кнопку «Закрыть файл» в правой части Организатора.

Это закрывает информацию для шаблона.

  1. Щелкните Открыть файл. Word отображает стандартное диалоговое окно «Открыть».

  2. Используйте элементы управления в диалоговом окне, чтобы перейти к шаблону, содержащему записи автотекста, и открыть его.

  3. В списке записей автотекста в правой части Организатора щелкните первую запись, которую вы хотите удалить.

  4. Удерживая нажатой клавишу Ctrl, вы нажимаете другие записи автотекста, которые хотите удалить.

  5. Когда вы выбрали все записи, которые хотите удалить, нажмите кнопку «Удалить».

  6. Вас могут спросить, уверены ли вы, что хотите удалить записи; ответ Да.

  7. Закройте Организатор.

Другой способ удалить множество записей автотекста — использовать макрос. Следующий макрос предоставляет простой способ пройти по каждой записи автотекста и принять решение о том, хотите ли вы удалить ее или нет.

Sub DeleteAutoTextEntries()

Dim I As AutoTextEntry     Dim vAnswer As Variant

For Each I In NormalTemplate.AutoTextEntries         vAnswer = MsgBox("Delete AutoText Entry" & vbCr _           & "Name: " & I.Name & vbCr _           & "Value: " & I.Value, vbYesNoCancel, _           "Delete AutoText Entries")

Select Case vAnswer             Case vbYes                 I.Delete             Case vbCancel                 Exit Sub         End Select     Next I End Sub

Макрос предполагает, что записи автотекста находятся в шаблоне Normal.dot; если они у вас есть в другом шаблоне, вы можете изменить ссылку NormalTemplate, чтобы использовать другой шаблон. Макрос отображает в диалоговом окне каждую запись автотекста, и у вас есть возможность удалить ее или нет. Вы также можете нажать кнопку «Отмена» (или нажать Esc), и макрос сразу же завершится.

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

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

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

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

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