Skipping Array Terms

[dj44]

Good day folks,

I wanted to understand some logic about array terms

It’s a bit back wards but I wanted to see how to do this

Now if the Replace term = "SKIP" completely skip the search term and its execution

 Sub Skip_Array_Terms()


    Dim oRng As Word.Range
    Dim arrWords As Variant
    Dim oReplace As Variant
    Dim i As Long, j As Long
    
    
    arrWords = Array("A", "B", "C", "D")

    oReplace = Array("Apple", "SKIP", "Cat", "SKIP")

        For i = 0 To UBound(arrWords)
            Set oRng = ActiveDocument.Range
            j = 0
            With oRng.Find
                Do While .Execute(FindText:=arrWords(i), MatchWholeWord:=True)
                
                
                'IF oReplace(i)="SKIP"     << something like this?
                    
                    oRng = oReplace(i)
                    
                    oRng.Collapse 0
                Loop
            End With
        Next i
        Set oRng = Nothing
   
    End Sub

What are the ways I may be able to achieve something like this, if it’s the same word then it is easier a clause somehwere?

I dont know if i would need to split the array as its the same word on the replace i would like to skip

[gmayor]

I think what you are looking for is

Sub Skip_Array_Terms()
Dim oRng As Word.Range
Dim arrWords As Variant
Dim oReplace As Variant
Dim i As Long

    arrWords = Array("A", "B", "C", "D")
    oReplace = Array("Apple", "SKIP", "Cat", "SKIP")

    For i = 0 To UBound(arrWords)
        If Not UCase(oReplace(i)) = "SKIP" Then
            Set oRng = ActiveDocument.Range
            With oRng.Find
                Do While .Execute(FindText:=arrWords(i), MatchWholeWord:=True)
                    oRng = oReplace(i)
                    oRng.Collapse 0
                Loop
            End With
        End If
    Next i
    Set oRng = Nothing
End Sub

Note that access to the Arrays is case sensitive.

[dj44]

Hello Graham,

Nice to see you.

Oh yes this is the exact simple line that makes it easy for me to understand.

 
 If Not UCase(oReplace(i)) = "SKIP" Then

Normally you skip terms on the search, but I didn’t want to split my arrays every time I had to skip a replacement, so it had to be backwards.

Now let me play about with this, because I do have a feeling seeing how useful it is

I may make an array of terms in the replacement to skip. eg

oSkipTerms  = Array("SKIP1", "SKIP2")
 
 If Not UCase(oReplace(i)) = oSkipTerms(j) Then

So it will be array within array


I'll pop back later with my new update

Good Sunday Graham