Check if a word exists in a list of words established in the vba code

Visor · #1 07-13-2020, 05:31 PM

Greetings friends of the forum
I have a Textbox1 and I need the word that is entered there to be compared with a group of words that I have put in the vba code if this word matches one of them, then give me a message saying that the word does exist, otherwise it says this word does not exist.

I have this

HTML Code:

Private Sub CommandButton1_Click()

Dim nivbajo(19) As Variant
Dim palabra() As String
Dim letra() As String
Dim numeroletras As Integer

nivbajo = Array("Calcar", "Citar", "Encontrar", "Enumerar", "Etiquetar", "Fijar", "Localizar", "Memorizar", "Mostrar", "Recitar", "Recordar", "Relatar", "Repetir", "Reproducir", "Señalar", "Subrayar", "Comentar", "Describir", "Determinar", "Dibujar", "Diferenciar", "Explicar", "Expresar", "Generalizar", "Identificar", "Ilustrar", "Informar", "Leer", "Observar", "Parafrasear", "Reconocer", "Resumir", "Revisar", "Secuenciar", "Sintetizar")

For k = 0 To 18
         For j = 1 To numeroletras
          letra(j) = Mid(palabra(i), j, 1)
          Texbox1 = InStr(letra(j), nivbajo (k), 1)
If tbxVerbo <> 0 Then
suma = suma + 1
End If
MsgBox "Si Existe ese verbo:" & suma
          Next j
 Next k
MsgBox "No Existe ese verbo:" & suma

End Sub

I hope you can help me with this topic
I thank you in advance for your support

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
check for duplicates of a word within next 100 words	sylvio	Word VBA	19	06-27-2023 04:10 PM
Pass each of the rows from Excel to Word rtf in paragraphs in established order	Visor	Word VBA	5	06-30-2020 02:19 AM
How to find (highlight) two and more words in a list of 75k single words in Word 2010	Usora	Word	8	05-29-2018 03:34 AM
Check if named Content Control field exists and add missing	sylvio	Word VBA	2	08-29-2017 04:08 AM
VBA Code for Grammar Check Not Working in Word 2016	PSSMargaret	Word VBA	2	06-11-2016 10:53 PM