Как применить проверку орфографии в текстовом поле?
Мы можем легко применить функцию проверки орфографии для проверки орфографии текстовой строки из ячейки, но эта функция не применяется к текстовому полю для проверки орфографии. В этой статье я расскажу о том, как применить проверку орфографии в текстовом поле.
Применить проверку орфографии в текстовом поле с кодом VBA
Применить проверку орфографии в текстовом поле с кодом VBA
Чтобы проверить правописание текстовой строки в текстовом поле, приведенный ниже код VBA может оказать вам услугу:
1. Сначала вставьте текстовое поле, нажав Застройщик > Вставить > Текстовое поле (элемент управления ActiveX), и перетащите, чтобы нарисовать текстовое поле, см. снимок экрана:
2. Затем выйдите из Режим проектирования чтобы ввести текстовую строку в текстовое поле по мере необходимости, после ввода текста включите Режим проектирования, и щелкните правой кнопкой мыши текстовое поле, чтобы выбрать Просмотреть код из контекстного меню см. снимок экрана:
3. В открытом Microsoft Visual Basic для приложений окна, замените исходный код на следующий код VBA в Module.
Код 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?
Как вставить картинку в текстовое поле?
Как установить значение по умолчанию в текстовом поле?
Как разрешить ввод только чисел в текстовое поле?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!