Hi Community,
I have an Excel file containing hyperlinks addresses and the name of the hyperlinks.
(Column A are the texts, and Column B are the URLs)
I want to replace those texts in a Word Document with the hyperlinks associated with those display texts.
I wrote the below code, which can add a hyperlink to text individually. However, over 500 documents need to add hyperlinks to the texts. And each document contains at least 50 texts and needs to add hyperlinks.
Is there any method to do it faster? Your help will be much appreciated.
Code:
Sub TextFindAndHyperlink()
Dim query As String
Dim SearchRange As Range
Dim SearchText As String
Dim WebAddress As String
query = InputBox("Texts to replace as hyperlinks")
If Not query = vbNullString Then
Set SearchRange = ActiveDocument.Range
SearchText = Replace(query, " ", "+")
WebAddress = InputBox("Please paste the hyperlink")
If Not WebAddress = vbNullString Then
With SearchRange.Find
Do While .Execute(SearchText, , True, , , , True) = True
With SearchRange
.Hyperlinks.Add SearchRange, WebAddress
End With
SearchRange.Collapse wdCollapseEnd
Loop
MsgBox ("The hyperlink is added to the text")
End With
End If
End If
End Sub