Bol by som vďačný ak niekto mi môže pomôcť a uviesť, aké by mali byť zmenené kód nižšie (našiel som to na www.extendoffice.com), ak chcete obmedziť to na vybranú časť textu (nie do práce po celý dokument).
Kód je získavanie odkazov z jedného slova doc iného.
Sub HyperlinksExtract()
Dim oLink As Hyperlink
Dim docCurrent As Document 'current document
Dim docNew As Document 'new document
Dim rngStory As StoryRanges
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
oLink.range.Copy
docNew.Activate
Selection.Paste
Selection.TypeParagraph
Next
Set docNew = Nothing
Set docCurrent = Nothing
End Sub