Byl bych vděčný, kdyby někdo mi mohl pomoci, a naznačují, co by se mělo změnit v kódu níže (našel jsem to na www.extendoffice.com) omezit to, aby vybrané části textu (ne do práce v celém dokumentu).
Kód je získávání odkazů z jedné word doc do druhé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