В этой статье ниже мы хотели бы представить вам способ пакетного добавления или удаления нескольких записей автозамены в вашем Word.
В Word есть встроенная функция автозамены. Многие пользователи уже знакомы с ним. На самом деле, многие из нас используют его для исправления слов с ошибками. Хотя вы можете импортировать столько элементов, сколько вам нужно, вы должны делать это один за другим. В общем, придется с этим смириться. Но, что касается макроса, вы сможете сэкономить много времени, создав список автозамены записей и импортируя их один раз и навсегда в один клик.
Ниже приведены подробные сведения о том, как это сделать:
Пакетное добавление нескольких записей автозамены
- Первый и первыйost, откройте пустой документ в Word и вставьте таблицу из 2 столбцов и нескольких строк.
- В таблице впишите все слова с ошибками в первый столбец.
- И введите все правильные слова во второй столбец.
- После этого нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
- Затем нажмите «Обычный» и вкладку «Вставить».
- И выберите «Модуль» в раскрывающемся меню.
- Затем дважды щелкните as, чтобы открыть новый модуль справа.
- Теперь вставьте туда следующие коды:
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
- И последнее, но не менее важное: нажмите «Выполнить» или нажмите «F5», чтобы запустить макрос.
Ноты:
- Запуск макроса вызовет окно результата, указывающее, что все элементы в таблице импортированы.
- Убедитесь, что после элемента в ячейке таблицы нет завершающего пробела. В противном случае макрос завершится ошибкой.
Пакетное удаление нескольких записей автозамены
Здесь противоположная потребность в пакетном удалении нескольких записей автозамены за считанные секунды. К счастью, с макросом это должно быть легко.
- Во-первых, аналогичным образом создайте новый пустой документ в Word.
- Затем вставьте таблицу в 1 столбец из нескольких строк.
- Введите в таблицу все слова с ошибками, которые необходимо удалить.
- Затем установите и запустите макрос, точно следуя описанным выше шагам.
- Но замените макрос на этот:
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 удалены.") Конец сабвуфера
- Аналогично, есть окно результата, как показано ниже:
Оружие против порчи документов
Представьте, что вы целый день работали над отчетом. И вдруг Word перестает отвечать. Затем через несколько секунд вы нигде не можете найти свой отчет на компьютере. Кажется, они просто исчезли! В каком отчаянии ты, должно быть, чувствуешь себя! Но вместо того, чтобы креститься и молиться на удачу, вам нужно настоящее оружие, чтобы восстановить документ.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com