Many Wild Card Searches - For different Texts - Array

[dj44]

Hi folks,
Good Monday.

I have been pondering this dilemma over the weekend and need some advice.

Lets say I have multiple different wild card searches I need to run.

Can I do that from one script?

I hate to have to have 10 different wild card scripts.

So for example
Each wild card search targets a different text and applies some color to it

Sub MultipleWildCardsSearch()


    Dim oRng As Word.Range
    Dim lngIndex As Long

    Dim oArraySearch() As String
    Dim varLongColors 

    'Wild Cards Search  -Can I store in an array or Select Case Statement?

     oArraySearch = Split("ZX[0-9]", "\#b[0-9]", ",")
    
    
    varLongColors = Array(RGB(0, 156, 250), RGB(256, 0, 0))
    
    
    For lngIndex = 0 To UBound(oArraySearch)
    Set oRng = ActiveDocument.Range
    With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = oArraySearch(lngIndex)
    '.Format = True
    .MatchWholeWord = True

   'Find the wild card text

   .Replacement.Text = oArraySearch(lngIndex)
    .Replacement.Font.Color = varLongColors(lngIndex)
    
 
    .Execute Replace:=wdReplaceAll
    End With
Next
lbl_Exit:
Exit Sub
End Sub

What would be the best way for me to set up something like this. I wasn't sure if this was a loop within a loop or something

Many thanks for your time

[macropod]

See, for example:
http://www.msofficeforums.com/word-v...html#post34254
or, for something much more elaborate:
http://www.msofficeforums.com/word-v...html#post93796

[dj44]

Hello Paul,

thank you for these threads they do are very impressive with an excel spreadsheet - i could store loads of these things in there,

It will take me time to slowly set these up and get togthere the various search fields i wanted to target.

Now i usually have 2 left feet when it comes to vba coding and can make a right mess.

Just as a baby step as well , so that i dont go off track with this idea of the search within an array as its quite hard to think like that for non techy folk

in the interim as well, i am curious to know about this loop array.

I have an array, but i never thought of before how to make it store a search criteria as

Search Criteria 1
Search Criteria 2
Search Crietria 3

and then run it from 1 script

It will help me to understand in the future to try and add it to other basic scripts so i can cut down on 10 searches for a paragraph or something else.


oArraySearch = Split("ZX[0-9]", "\#b[0-9]", ",")

.Text = oArraySearch(lngIndex) << Is this meant to be a Search within a search ?

[macropod]

oArraySearch(lngIndex) is simply the reference to the relevant element in the array. So, if lngIndex = 0, oArraySearch(lngIndex) = oArraySearch(0) and returns ("ZX[0-9]"

As for:
Dim oArraySearch() As String
...
oArraySearch = Split("ZX[0-9]", "\#b[0-9]", ",")
you might do better to use:
Dim oArraySearch
...
oArraySearch = Array("ZX[0-9]", "\#b[0-9]", ",")

[dj44]

Hello Paul,

on this basic script I am getting a type mismatch
on this line

.Replacement.Font.Color = varLongColors(lngIndex)

Sub MultipleWildCardsSearch()


    Dim oRng As Word.Range
    Dim lngIndex As Long
    Dim oArraySearch
    Dim varLongColors
    
    oArraySearch = Array("ZX[0-9]", "*Q[0-9]", ",")
    
    varLongColors = Array(RGB(0, 156, 250), RGB(256, 0, 0))
    
    
    For lngIndex = 0 To UBound(oArraySearch)
    Set oRng = ActiveDocument.Range
    With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    
    .Text = oArraySearch(lngIndex)
    '.Format = True
    .MatchWholeWord = True
    .Replacement.Font.Color = varLongColors(lngIndex)
    
    .Replacement.Text = oArraySearch(lngIndex)
    .Execute Replace:=wdReplaceAll
    End With
Next
lbl_Exit:
Exit Sub
End Sub

well i looked at it for a long time , and i know I did something but i cant work it out now

[macropod]

on this basic script I am getting a type mismatch
on this line

.Replacement.Font.Color = varLongColors(lngIndex)

Doubtless that's because oArraySearch has more elements (3) than varLongColors (2). Consequently, you'll get a 'subscript out of range' error because of that.

[dj44]

ooops

I thought that comma was part of the split array function.

oArraySearch = Array("ZX[0-9]", "*Q[0-9]", ",")

So i must have tinkered with the wrong part


well thats sorted now

thanks for the pointers and the awesome threads Paul
im still setting them up