Как добавить или удалить несколько записей автозамены в Word

Поделись сейчас:

В этой статье ниже мы хотели бы представить вам способ пакетного добавления или удаления нескольких записей автозамены в вашем Word.

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

Ниже приведены подробные сведения о том, как это сделать:

Пакетное добавление нескольких записей автозамены

  1. Первый и первыйost, откройте пустой документ в Word и вставьте таблицу из 2 столбцов и нескольких строк.
  2. В таблице впишите все слова с ошибками в первый столбец.
  3. И введите все правильные слова во второй столбец.Создайте таблицу для хранения как слов с ошибками, так и правильных слов
  4. После этого нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
  5. Затем нажмите «Обычный» и вкладку «Вставить».
  6. И выберите «Модуль» в раскрывающемся меню.Нажмите «Обычный» -> нажмите «Вставить» -> нажмите «Модуль».
  7. Затем дважды щелкните as, чтобы открыть новый модуль справа.
  8. Теперь вставьте туда следующие коды:
Sub BatchAddAutoCorrectEntries() Dim objTable As Table Dim objOriginalWord As Cell Dim objOriginalWordRange As Range Dim objReplaceWordRange As Range Dim nRowNumber As Integer Set objTable = ActiveDocument.Tables(1) nRowNumber = 1 Для каждого objOriginalWord в objTable.Columns(1).Cells Set ob jOriginalWordRange = objOriginalWord.Range objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1 Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1 AutoCorrect.Entries.Add Name: =objOriginalWordRange.Text, Value:=objReplaceWordRange.Text nRowNumber = nRowNumber + 1 Next objOriginalWord Msgbox("Все элементы автозамены в таблице1 добавлены." End Sub
  1. И последнее, но не менее важное: нажмите «Выполнить» или нажмите «F5», чтобы запустить макрос.Вставьте коды-> Нажмите «Выполнить».

Ноты:

  1. Запуск макроса вызовет окно результата, указывающее, что все элементы в таблице импортированы.Окно результатов, указывающее, что все элементы импортированы
  2. Убедитесь, что после элемента в ячейке таблицы нет завершающего пробела. В противном случае макрос завершится ошибкой.

Пакетное удаление нескольких записей автозамены

Здесь противоположная потребность в пакетном удалении нескольких записей автозамены за считанные секунды. К счастью, с макросом это должно быть легко.

  1. Во-первых, аналогичным образом создайте новый пустой документ в Word.
  2. Затем вставьте таблицу в 1 столбец из нескольких строк.
  3. Введите в таблицу все слова с ошибками, которые необходимо удалить.Все слова с ошибками
  4. Затем установите и запустите макрос, точно следуя описанным выше шагам.
  5. Но замените макрос на этот:
Sub BatchDeleteAutoCorrectEntries() Dim objTable As Table Dim objOriginalWord As Cell Dim objOriginalWordRange As Range Dim nRowNumber As Integer Set objTable = ActiveDocument.Tables(1) nRowNumber = 1 Для каждого objOriginalWord в objTable.Columns(1).Cells Set objOriginalWordRange = obj ОригиналWord.Range objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1 При ошибке Возобновить следующий AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete nRowNumber = nRowNumber + 1 Next objOriginalWord Msgbox("Все элементы автозамены в таблице1 удалены.") Конец сабвуфера
  1. Аналогично, есть окно результата, как показано ниже:Окно результатов

Оружие против порчи документов

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xls , так и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

9 ответов на «Как добавить или удалить несколько записей автозамены в Word»

  1. Я попробовал и получил ошибку. Мне удалось исправить ошибку, изменив следующую строку:

    «AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text»

    Просто добавьте «Приложение». в начале, чтобы он читался следующим образом:

    «Application.AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text»

  2. Это не работает. Выдает сообщение об ошибке: Compile Error Expected Function as Variable
    Он показывает следующую строку как ошибку

    Autocorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
    Пожалуйста, подскажите, как исправить эту ошибку.

  3. Отличный материал, спасибо. Любой способ сделать это в Excel? Я вообще не балуюсь VBA, и VBA в Excel, кажется, немного отличается - по крайней мере, в 365. Буду рад вашим отзывам.

  4. На некоторых ПК работает только для одного документа, но не для остальных.

    Пожалуйста, порекомендуйте.

  5. Это отлично работает, спасибо, но не сохраняет форматирование (например, полужирный или курсив). Есть ли способ сохранить форматирование при их добавлении?

  6. он работает только для одного документа. вы можете создать макрос, который будет работать для всех документов Word

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *