Author: Tomas Rutkauskas

How to change all hyperlinks in a Winword document

Answer:

1   { ... }
2   Doc := Word.ActiveDocument;
3   for x := 1 to Doc.Hyperlinks.Count do
4   begin
5     Doc.Hyperlinks.Item(x).Address;
6   end;
7   { ... }