View Single Post
 
Old 10-08-2013, 08:17 AM
slaycock slaycock is offline Windows 7 64bit Office 2013
Expert
 
Join Date: Sep 2013
Posts: 255
slaycock is on a distinguished road
Default

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
Reply With Quote