Word VBA - Search and Replace in Specific Ranges - Multidimensional Array

[dj44]

Good day folks,





I am doing search and replacement between sets of ranges that I have put between 2 placeholders.

I have put them in an array.

Each set has a different search and replacement to happen.

The problem is it is replacing the same for both sets.








Sub CSET_Forum()


Dim oRng As Range
Dim oRng2 As Range
Dim lngIndex As Long
Dim k As Variant
Dim Array_Terms 'dimmed as variant


'Array Terms
'Place holder 1 = Term[0]
'Placeholder 2 = Term[1]
'Search = Term[2]
'Replace = Term[3]
'---------------------------------------------------------------------




Array_Terms = Array(Array("[A1]", "[A2]", "Apple", "11111"), Array("[B3]", "[B4]", "Apple", "22222"))



k = 0
For lngIndex = LBound(Array_Terms) To UBound(Array_Terms)


Set oRng = ActiveDocument.Range
With oRng.Find

'Find the Ranges between the 2 Placeholders
Do While .Execute(FindText:=Array_Terms(k)(0) & "*" & Array_Terms(k)(1), MatchWildcards:=True)



'------------------------------------------
' Each Range - Do the Search and Replacements
Set oRng2 = oRng
With oRng2.Find

'Search and Replace
Do While .Execute(FindText:=Array_Terms(k)(2), MatchWholeWord:=True)

oRng2.Text = Array_Terms(k)(3)


'.Wrap = wdFindStop

oRng2.Collapse 0


Loop
End With
Set oRng2 = Nothing
'------------------------------------------



Loop
End With
k = k + 1
Next lngIndex

lbl_Exit:
Exit Sub
End Sub








I know I may not have set my ranges correctly and my loop may be not correct. I added an inner loop but that still didn’t work.

Please do help and advise

Thank you for you time.

[gmaxey]

An example of what you are trying to find and replace with what would be helpful.

[dj44]

Hello Greg,

nice to see you.

Example
Array for [A1] to [A2] find Apple replace with 11111

I put the terms in its own specific array.
Array("[A1]", "[A2]", "Apple", "11111")


__________________________________________________________
Before

You can also type a keyword to search online for the video that best fits your document.
[A1]
Apple
Apricot
Avocado
[A2]
You can also type a keyword to search online for the video that best fits your document.

Apricot
Apple
Avocado
[B4]
Hello text
__________________________________________________________

[B]After
You can also type a keyword to search online for the video that best fits your document.
[A1]
11111
Apricot
Avocado
[A2]
You can also type a keyword to search online for the video that best fits your document.
[B3]
Apricot
2222
Avocado
[B4]
Hello text
__________________________________________________________

I wanted to search and replace different sets of words between each range.

[gmaxey]

Couple of things, [ and ] are special wildcard characters so you have to escape them with \. You have to handle the find runaway range.


Sub CSET_Forum()
Dim oRng As Range
Dim oRng2 As Range
Dim lngIndex As Long
Dim k As Variant
Dim Array_Terms

Array_Terms = Array(Array("\[A1\]", "\[A2\]", "Apple", "11111"), Array("\[B3\]", "\[B4\]", "Apple", "22222"))
k = 0
For lngIndex = LBound(Array_Terms) To UBound(Array_Terms)
Set oRng = ActiveDocument.Range
With oRng.Find
'Find the Ranges between the 2 Placeholders
Do While .Execute(FindText:=Array_Terms(k)(0) & "*" & Array_Terms(k)(1), MatchWildcards:=True)
Set oRng2 = oRng.Duplicate
With oRng2.Find
'Search and Replace
Do While .Execute(FindText:=Array_Terms(k)(2), MatchWholeWord:=True)
If oRng2.InRange(oRng) Then
oRng2.Text = Array_Terms(k)(3)
oRng2.Collapse 0
Else
Exit Do
End If
Loop
End With
Set oRng2 = Nothing
Loop
End With
k = k + 1
Next lngIndex
lbl_Exit:
Exit Sub
End Sub

[dj44]

Hello Greg,


I havent touched vba in a while as things have been running nicely, with all the great code i have from here.

Well the moment i tried to code again my arrays crashed my computer as there was a type mismatch happening somewhere.

Any way i tried an alternate cset version of moving the ranges but it wouldnt find the ranges.

Thank you for solving this problem so quickly, and alerting me about the bracket issue.


I hope you are keeping well and the greatest of thanks for solving this problem.

It does the JOB AMAZINGLY - Search and replace but only within the range I set and different words for each range.


:)

have a great day!

[gmaxey]

:thumb:thumb