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