VBA Search Table for Text/Select Text/Insert Hyperlink

gmayor · #2 03-24-2015, 12:57 AM

You could use something like

Code:

Sub AddHyperlink(oDoc As Document, _
                 strText As String, _
                 strLink As String)
Dim oTable As Table
Dim oRng As Range
    Set oTable = oDoc.Tables(1)
    Set oRng = oTable.Range
    With oRng.Find
        Do While .Execute(FindText:=strText)
            oDoc.Hyperlinks.Add Anchor:=oRng, _
                                Address:=strLink, _
                                SubAddress:="", _
                                ScreenTip:="", _
                                TextToDisplay:=oRng.Text, _
                                Target:=""
            oRng.Collapse 0
            Exit Do
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub

and call that sub from the original code e.g.

Code:

AddHyperlink ActiveDocument, "Test A", "http:\\www.gmayor.com\WordPages.htm"

You can add any of the other parameters that you require.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Microsoft Word macro to find text, select all text between brackets, and delete	helal1990	Word VBA	4	02-05-2015 03:52 PM
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
Macro to search warning text style and replace the text color	rohanrohith	Word VBA	3	11-27-2014 01:08 PM
Select section of text and change text	newbieX	Word VBA	3	03-28-2014 04:21 PM
Select Text in Table but Table Gets Selected Too	RBusiness	Word	1	06-07-2011 04:26 PM