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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins