Find Word in Sentence

Thanks,

I am inexperienced in VBA, could you please help me ? How can I do in this
example?

Sergio

 

Using VBA, as I only obtain the "Wood" type in the "Doors &
Windows.Wood Doors.Ash" ?

Sergio

 

The InStr function returns a number indicating where one string is found
within another.

 

There are examples and a breakdown of all the parameters in the VBA help
file.

 

Dim FirstString As String
Dim SecondString As String
Dim WhereInString As Integer
Dim WholeSentence As Variant
Dim ReplaceWith As String
Dim I As Integer

FirstString = "The big brown fox jumps over the log."
SecondString = "fox"

WhereInString = InStr(FirstString, SecondString)
If WhereInString Then MsgBox SecondString & " occurs " & Str(WhereInString)
& " characters from the beginning of the sentence."

ReplaceWith = InputBox("What should I replace 'fox' with?")

WholeSentence = Split(FirstString, " ")

FirstString = ""

For I = 0 To UBound(WholeSentence)
If WholeSentence(I) = SecondString Then WholeSentence(I) = ReplaceWith
FirstString = FirstString & " " & WholeSentence(I)
Next I

MsgBox Trim$(FirstString)


HTH.

 

Thanks, Dan and Frank

Sergio