Como aplicar a verificação ortográfica em uma caixa de texto?

Podemos facilmente aplicar a função de Ortografia para verificar o texto de uma célula, mas esse recurso não está disponível para caixas de texto. Neste artigo, vou explicar como aplicar a verificação ortográfica em uma caixa de texto.

Aplicar verificação ortográfica em uma caixa de texto com código VBA

Aplicar verificação ortográfica em uma caixa de texto com código VBA

Para verificar a ortografia do texto em uma caixa de texto, o seguinte código VBA pode ajudá-lo:

1. Primeiro, insira uma caixa de texto clicando em Desenvolvedor > Inserir > Caixa de Texto (Controle ActiveX) e arraste para desenhar uma caixa de texto, veja a captura de tela:

2. Depois, saia do Modo de Design para inserir o texto na caixa de texto conforme necessário. Após digitar o texto, reative o Modo de Design, clique com o botão direito na caixa de texto e selecione Visualizar Código no menu de contexto, veja a captura de tela:

3. Na janela aberta do Microsoft Visual Basic for Applications, substitua o código original pelo seguinte código VBA no Módulo.

Código VBA: Aplicar verificação ortográfica na caixa 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. Em seguida, pressione a tecla F5 para executar este código. A caixa de diálogo Ortografia será ativada imediatamente, e você poderá usar a função Ortografia para verificar o texto dentro da caixa de texto, conforme mostrado na captura de tela abaixo:

Artigos relacionados:

Como alterar a cor da caixa de texto com base no valor no Excel?

Como inserir uma imagem em uma caixa de texto?

Como definir um valor padrão em uma caixa de texto?

Como permitir apenas a entrada de números em uma caixa de texto?