¿Cómo aplicar la revisión ortográfica a un cuadro de texto?
Podemos aplicar fácilmente la función de ortografía para revisar 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, explicaré cómo aplicar la revisión ortográfica en un cuadro de texto.
Aplicar la revisión ortográfica en un cuadro de texto con código VBA
Aplicar la revisión ortográfica en un cuadro de texto con código VBA
Para revisar ortográficamente la cadena de texto en un cuadro de texto, el siguiente código VBA puede ayudarle:
1. En primer lugar, inserte un cuadro de texto haciendo clic en Programador > Insertar > Cuadro de texto (Control ActiveX) y arrastre para dibujar el cuadro; consulte la captura de pantalla:
2. A continuación, salga del Modo Diseño para introducir la cadena de texto que necesite en el cuadro de texto. Tras escribir el texto, vuelva a activar el Modo Diseño y haga clic con el botón derecho en el cuadro de texto para seleccionar Ver código en el menú contextual; consulte la captura de pantalla:
3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, reemplace el código original por el siguiente código VBA en el módulo.
Código VBA: Aplicar la revisión ortográfica en un 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. A continuación, pulse la tecla F5 para ejecutar este código. Inmediatamente aparecerá el cuadro de diálogo Ortografía, y podrá usar la función Ortografía para revisar la ortografía del texto en el cuadro de texto, tal como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo cambiar el color de un cuadro de texto en función de un valor en Excel?
¿Cómo insertar una imagen dentro de un cuadro de texto?
¿Cómo establecer un valor predeterminado en un cuadro de texto?
¿Cómo permitir únicamente la entrada de números en un cuadro de texto?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos