Como aplicar a verificação ortográfica na caixa de texto?
Podemos facilmente aplicar a função de ortografia para verificar a ortografia da sequência de texto de uma célula, mas esse recurso não é aplicado à caixa de texto para verificação ortográfica. Neste artigo, falarei sobre como aplicar a verificação ortográfica em uma caixa de texto.
Aplicar a verificação ortográfica em uma caixa de texto com o código VBA
Aplicar a verificação ortográfica em uma caixa de texto com o código VBA
Para verificar a ortografia da string de texto em uma caixa de texto, o código VBA abaixo pode lhe fazer um favor:
1. Primeiro, insira uma caixa de texto clicando em Developer > inserção > Caixa de texto (controle ActiveX)e arraste para desenhar uma caixa de texto, veja a captura de tela:
2. Então, saia do Modo de design para inserir a sequência de texto na caixa de texto conforme necessário, após digitar o texto, continue habilitando o Modo de designe clique com o botão direito na caixa de texto para selecionar Ver código no menu de contexto, veja a captura de tela:
3. No aberto Microsoft Visual Basic para Aplicações janela, substitua o código original com o 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. E, em seguida, pressione F5 chave para executar este código, o Ortografia caixa de diálogo é ativada imediatamente, então, você pode usar o Ortografia função para verificar a ortografia do texto na caixa de texto, conforme a seguinte captura de tela mostrada:
Artigos relacionados:
Como alterar a cor da caixa de texto com base no valor no Excel?
Como inserir uma imagem na caixa de texto?
Como definir um valor padrão em uma caixa de texto?
Como permitir que apenas números sejam inseridos na caixa de texto?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!