tell application "Microsoft Word"
activate
set allTexts to {}
set allLinks to every hyperlink object of active document
set theTable to make new table at active document ¬
with properties {number of rows:1, number of columns:2}
insert text "Link" at text object of cell 1 of row 1 of theTable
insert text "URL" at text object of cell 2 of row 1 of theTable
repeat with theLink in allLinks
set theText to text to display of theLink
if allTexts does not contain theText then
make new row at end of theTable with properties ¬
{allow break across pages:false}
insert text (theText) at text object of cell 1 ¬
of last row of theTable
insert text (hyperlink address of theLink) ¬
at text object of cell 2 of last row of theTable
set allTexts to allTexts & {theText}
end if
end repeat
table sort theTable field number 1 with exclude header
end tell