Change all hyperlinks in a Winword document

Problem/Question/Abstract:

How to change all hyperlinks in a Winword document

Answer:

{ ... }
Doc := Word.ActiveDocument;
for x := 1 to Doc.Hyperlinks.Count do
begin
  Doc.Hyperlinks.Item(x).Address;
end;
{ ... }