Как выполнить проверку орфографии в текстовом поле?
Функцию проверки орфографии легко применить к тексту в ячейке, но она не работает для текстовых полей. В этой статье я покажу, как выполнить проверку орфографии в текстовом поле.
Выполнение проверки орфографии в текстовом поле с помощью кода VBA
Выполнение проверки орфографии в текстовом поле с помощью кода VBA
Чтобы проверить орфографию строки текста в текстовом поле, приведённый ниже код VBA может вам помочь:
1. Сначала вставьте текстовое поле: щёлкните Разработчик > Вставить > Текстовое поле (элемент управления ActiveX), а затем перетащите указатель, чтобы нарисовать текстовое поле (см. снимок экрана):
2. Сначала выйдите из режима конструктора, чтобы ввести нужный текст в текстовое поле. После ввода снова включите режим конструктора и щёлкните текстовое поле правой кнопкой мыши, чтобы выбрать в контекстном меню пункт Просмотреть код (см. снимок экрана):
3. В открывшемся окне Microsoft Visual Basic для приложений замените исходный код в модуле на следующий код VBA.
Код VBA: Выполнение проверки орфографии в текстовом поле:
Sub SpellChkRvw_Click()
Dim xObject As Object
Dim xCell As Range
On Error Resume Next
Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
If ActiveSheet.OLEObjects.Count > 0 Then
For Each xObject In ActiveSheet.OLEObjects
xCell = xObject.Object.Text
xCell.CheckSpelling , , , 1033
xObject.Object.Text = xCell
Next
End If
End Sub
4. Нажмите клавишу F5, чтобы запустить этот код. После этого сразу откроется диалоговое окно Орфография, и вы сможете воспользоваться функцией Орфография для проверки текста в текстовом поле, как показано на следующем снимке экрана:
Связанные статьи:
Как изменить цвет текстового поля в зависимости от значения в Excel?
Как вставить изображение в текстовое поле?
Как установить значение по умолчанию в текстовом поле?
Как разрешить ввод только чисел в текстовое поле?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек