Eu ficaria grato se alguém pudesse me ajudar e indicar o que deve ser alterado no código abaixo (encontrei-o em www.extendoffice.com) para restringir esta para a parte selecionada do texto (e não a obra em todo o documento).
O código é a extração de hiperlinks a partir de um documento do word para o outro.
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