VBA .Find WildCard not working

[Akbarov]

Hello, I am trying to use Wild card in .Find with variables. You can see in attachment below.
But for some reason it is not finding. Can anyone tell me where I do wrong?

                    For xW1 = 1 To 30
                            With Selection.Find
                    .Text = "*" & SozX(xW1) & "*" & SozX(xW1 + 1) & "*" & SozX(xW1 + 2) & "*" & SozX(xW1 + 3) & "*" & SozX(xW1 + 4) & "*" & SozX(xW1 + 5) & "*"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                    End With
                    If Selection.Find.Found = True Then MsgBox ("Tapildi")
                    Next xW1

Thanks in advance.

 

[Legacy 143009]

A possible work-around could be:

For xW1 = 1 To 30
  If UCase(Selection.Value2) Like UCase("*" & SozX(xW1) & "*" & SozX(xW1 + 1) & "*" & SozX(xW1 + 2) & "*" & SozX(xW1 + 3) & "*" & SozX(xW1 + 4) & "*" & SozX(xW1 + 5) & "*") Then MsgBox ("Tapildi")
Next xW1

 

[Akbarov]

Thanks for reply, but I use that code to find string within paragraph in Word and select that paragraph. With your code I don't think I can do that.

 

[Legacy 143009]

Oh, I didn't know it was for Word. Sorry.

 

[Joe4]

Thanks for reply, but I use that code to find string within paragraph in Word and select that paragraph. With your code I don't think I can do that.

Yes, the detail about trying to do this in Word is a very important detail that you want to be sure to mention when you first post your question (especially since this is mostly an Excel forum)!