¿Cómo aplicar la revisión ortográfica en un cuadro de texto?

Podemos aplicar fácilmente la función Revisión Ortográfica para verificar el texto de una celda, pero esta característica no se aplica a los cuadros de texto para la revisión ortográfica. En este artículo, hablaré sobre cómo aplicar la revisión ortográfica en un cuadro de texto.

Aplicar revisión ortográfica en un cuadro de texto con código VBA

Aplicar revisión ortográfica en un cuadro de texto con código VBA

Para revisar la ortografía del texto en un cuadro de texto, el siguiente código VBA puede ayudarte:

1. Primero, por favor, inserta un cuadro de texto haciendo clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX), y arrastra para dibujar un cuadro de texto, ver captura de pantalla:

2. Luego, por favor, sal de Modo Diseño para ingresar el texto que necesites en el cuadro de texto. Después de escribir el texto, vuelve a activar el Modo Diseño, y haz clic derecho en el cuadro de texto para seleccionar Ver Código desde el menú contextual, ver captura de pantalla:

3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, reemplaza el código original con el siguiente código VBA en el Módulo.

Código VBA: Aplicar revisión ortográfica en 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. Luego presiona la tecla F5 para ejecutar este código, el cuadro de diálogo Ortografía se habilitará de inmediato, y podrás usar la función Ortografía para revisar el texto dentro del cuadro de texto como se muestra en la siguiente captura de pantalla:

Artículos relacionados:

¿Cómo cambiar el color del cuadro de texto basado en un valor en Excel?

¿Cómo insertar una imagen en un cuadro de texto?

¿Cómo establecer un valor predeterminado en un cuadro de texto?

¿Cómo permitir solo números en un cuadro de texto?