В этой статье ниже мы хотели бы представить вам способ пакетного добавления или удаления нескольких записей автозамены в вашем 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
1
Сиалис черный 80мг тадалафилисе.cyou/#
Я попробовал и получил ошибку. Мне удалось исправить ошибку, изменив следующую строку:
«AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text»
Просто добавьте «Приложение». в начале, чтобы он читался следующим образом:
«Application.AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text»
Это не работает. Выдает сообщение об ошибке: Compile Error Expected Function as Variable
Он показывает следующую строку как ошибку
Autocorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
Пожалуйста, подскажите, как исправить эту ошибку.
Отличный материал, спасибо. Любой способ сделать это в Excel? Я вообще не балуюсь VBA, и VBA в Excel, кажется, немного отличается - по крайней мере, в 365. Буду рад вашим отзывам.
На некоторых ПК работает только для одного документа, но не для остальных.
Пожалуйста, порекомендуйте.
Это отлично работает, спасибо, но не сохраняет форматирование (например, полужирный или курсив). Есть ли способ сохранить форматирование при их добавлении?
он работает только для одного документа. вы можете создать макрос, который будет работать для всех документов Word
спасибо сработало отлично