I have a sort of long document with all parentheses toward one side; like (out of stock(.
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.