¿Cómo aplicar el corrector ortográfico en el cuadro de texto?
Podemos aplicar fácilmente la función Ortografía para revisar la ortografía de la cadena de texto de una celda, pero esta función no se aplica al cuadro de texto para la revisión ortográfica. En este artículo, hablaré sobre cómo aplicar el corrector ortográfico en un cuadro de texto.
Aplicar el corrector ortográfico en un cuadro de texto con código VBA
Aplicar el corrector ortográfico en un cuadro de texto con código VBA
Para revisar la ortografía de la cadena de texto en un cuadro de texto, el siguiente código VBA puede hacerle un favor:
1. Primero, inserte un cuadro de texto haciendo clic en Developer > recuadro > Cuadro de texto (control ActiveX)y arrastre para dibujar un cuadro de texto, vea la captura de pantalla:
2. Entonces, salga del Modo de diseño para ingresar la cadena de texto en el cuadro de texto según lo necesite, después de escribir el texto, continúe habilitando el Modo de diseñoy haga clic derecho en el cuadro de texto para seleccionar Ver código en el menú contextual, vea la captura de pantalla:
3. En el abierto Microsoft Visual Basic para aplicaciones ventana, reemplace el código original con el siguiente código VBA en el Módulo.
Código de VBA: aplique el corrector ortográfico en el cuadro de texto:
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. Y luego presione F5 clave para ejecutar este código, la Ortografía cuadro de diálogo está habilitado a la vez, entonces, puede utilizar el Ortografía función para revisar la ortografía del texto en el cuadro de texto como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo cambiar el color del cuadro de texto según el valor en Excel?
¿Cómo insertar una imagen en el cuadro de texto?
¿Cómo establecer un valor predeterminado en un cuadro de texto?
¿Cómo permitir que solo se ingresen números en el cuadro de texto?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!