Sarei grato se qualcuno mi potrebbe aiutare e indicare ciò che deve essere cambiato nel codice riportato di seguito (l'ho trovato su www.extendoffice.comper limitare questo per la parte selezionata del testo (non per lavoro in tutto il documento).
Il codice è l'estrazione di collegamenti ipertestuali da un doc di word che di un altro.
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