Replace Dashes With A Solid Line?

I am using word 2010 VBA to clean up a "dot matrix" looking report. One thing I want to do is replace a row of dashes with a solid line. I think the code would look something like this:

count strings = "-------------------"
for each strin (i)
select string
delecte selection
move up
insert solid line
next (i)

Or if it can be done as a find and replace all that would be even better, but I cannot find how to replace a row of dashes (text) with a line object.