Hi Designgrrl
You are correct. I'm confusing word cross references with hyperlinks. Doing a search and replace on hyperlinks reproduces the effect you describe.
I found two possible ways around this.
1. Show field code rather than field results. the text in the field code gets changed but updating the field produces the unchanged original. However this is not robust as there may be stuff in the field codes which shouldn't be changed.
2. A more laborious search and replace making sure you use each style in turn. Something like
Dim myStyle as Style
For each myStyle in Activedocument.styles
With selection.find
If mystyle = activedocument.style(wdstylehyperlink) then
'do nothing
else
.clearformatting
.replace.clearformatting
.text=<search text>
.replacement.text=<replace text>
.format=true
.style=mystyle
.forward=true
.wrap=wdfindcontinue
.execute
end if
next
end sub
Please note that you have to include the style in the search parameters so you can avoid searching when the style matches 'Hyperlink'
Last edited by slaycock; 10-08-2013 at 08:33 AM.
Reason: Premature close
|