Как добавить или удалить несколько записей автозамены в 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

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

Комментарии закрыты.