I am trying to get a macro to change the font color of all hyperlinks in multiple Word documents in a folder. I also want to be able to use RGB colors rather than colorindex colors. I have been using base code posted by Macropod in this forum but the best it does it that it works sometimes. (And in Macropod’s model code was this code to open the files in the selected folder:

Set wdDoc = Documents.Open(FileName:=strFolder & "" & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc

I found that the target docs not only did not ever get updated this way, but the macro also opened other documents as well that are on my PC (but not in the chosen folder). When I added this before ‘With wdDoc’:

Set wdDoc = ActiveDocument

Then the macro opened only the files in the target folder and updated them, but it did not update the files all the time. It seems when it works with one color, I have to close Word after the macro runs, change the color in the code, then run it again. And even then, it only sometimes changes the hyperlink color in the documents. When it works and formats the links, it runs through the 5 test documents in the folder within about 30 seconds. When the macro runs but is not updating the files, it runs much more slowly.

Inconsistency and having to close Word are unacceptable to me. Either it works or it doesn’t.

Any ideas on how to make this code apply any RGB color to all links in documents in the selected folder on demand?



The macro is in the attachment.

Attached Files

Update Document Link Color.docm (23.1 KB, 3 views)