How to write a "replace" order in VBA working every other time

[reza98]

I have a sort of long document with all parentheses toward one side; like (spring(, (fall(, (winter(.

Now I'm wondering how I can write a replace order replacing every other parenthesis.
I already know that the replace order is like:
Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:="(", _ ReplaceWith:=")", Replace:=wdReplaceAll
but unfortunately I don't know how to apply
If i Mod 2 = 0 Then

to the code above.

[gmayor]

Answered at https://answers.microsoft.com/en-us/...d-d7efb008a4df
Please cross post correctly!