Another quick question...

I'm using the following snippet of code as an extension to what Greg wrote



.Text = "[0-9]-[0-9]"
.MatchWildcards = True
.MatchWholeWord = False
.Replacement.Text = "–"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue

How can I amend this to only replace the 2nd character of the found text? I've tried putting ".Character(2)" in various places, and a few other ideas, but to no avail. Thanks.

Also, instead of using "ActiveDocument.Range" is there a way to get the macro to ignore deleted text in Track Changes revisions?