VBA, Add hyperlink to each line of selected lines of text in word.

[Tuankiet]

First time learning VBA. I want to write a VBA script to add a hyperlink to each line of a range of selected paragraphs in word 2016. The hyperlink would open a document with the filename matching the line of text selected and are stored in the same folder.

Here what I found and put together but I can't get it to compile. please help.

Sub Test()
'
Dim arr

' Put text of Word's selection to the array
arr = Split(Selection.Range, vbCr)

' Show dimension of array
Debug.Print "LBound = " & LBound(arr), "UBound = " & UBound(arr)

' Show each element of array
For i = 0 To UBound(arr)
'select the line
ActiveDocument.Selection.arr(i) unit:=wdLine, Extend:=wdExtend
ActiveDocument.Hyperlinks.Add Anchor:= arr(i) Address:=arr(i) _
, SubAddress:="", ScreenTip:="", TextToDisplay:=arr(i)
Next

End Sub

 

[Macropod]

Word doesn't ordinarily work with lines - it works with paragraphs - so going line-by-line is a lot of work. Moreover, you haven't said anything about how this 'range of selected paragraphs' might be identified.

 

[Tuankiet]

Thank you Macropod, I decided to do a different way. The selection method does not seem to work so I use a blank doc, do all work there and copy/paste to the working document.