VBA to copy bookmark-hyperlinks to plain text strings

[Marrick13]

I want to be able to copy a hyperlink tied to a bookmark to all occurrences of a text string entered in an inputbox, and I don't know whether the code should search and select all finds and replace them with the link or if there are better ways.



In the document I'm working on, I have 16 instances of the plain text "Chapter 22" that I want to convert to HYPERLINK \l "EmotionalGuidanceScale" (still displaying "Chapter 22" as the text) so I can click on any of them and navigate to the EmotionalGuidanceScale bookmark.

I started the code for the inputbox and counter, but that's as far as I got. It just occurred to me that after entering the text to be converted, I should display the bookmark list so the bookmark can be selected (not that I necessarily know how to do that!), but I still have the unresolved issue of actually copying the link to the text strings.

Sub CopyFieldCode()
Dim Text As String, MyDoc As String, t As String, count As Long, i As Integer

MyDoc = ActiveDocument.Range.Text

Text = InputBox("Enter text to find (case sensitive)")

If Text = "" Then
    Exit Sub
    End If

 t = Replace(MyDoc, Text, "")
    count = (Len(MyDoc) - Len(t)) / Len(Text)
If count = 0 Then
    MsgBox "There were no occurrences of " & Text
    Exit Sub
    End If
    
For i = 1 To count

[Here is where I need help; the code snippet below doesn't work]

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
        SubAddress:="EmotionalGuidanceScale", ScreenTip:="", TextToDisplay:= _
        Text
    End With
    
Next i
End Sub

[macropod]

Hi Marrick,

The (ridiculously) easy way to do this without vba is to:
1. Create your hyperlink, including with the 'Chapter 22' display text.
2. Copy the hyperlink to the clipboard
3. Do an ordinary Find/Replace, where -
Find = Chapter 22
Replace = ^c

[Marrick13]

You're right, Paul - that is ridiculously easy! Thanks much.