Option Explicit

Sub insert_authority_hyperlinks()

    Const AUTHORITY_PLACEHOLDER             As String = "<authority>"
    Const PATH_TO_REFERENCES                As String = "W:\Skydrive\Docs\<authority>.htm#chpt_"
    Const SEARCH_TEXT                       As String = "([\(])(<authority>)(*)([)])"
    
    'adjust the 3 to the number you actually need
    Dim authorities(1 To 3)                 As String
    Dim authority                           As Variant
    Dim rng                                 As Word.Range
    Dim name                                As String
    Dim chapter                             As String
    Dim verses(1 To 2)                      As String
    Dim end_of_rng                          As Long
    
    authorities(1) = "John"
    authorities(2) = "Matthew"
    authorities(3) = "Mark"
    ' etc
    
    For Each authority In authorities
        Set rng = ActiveDocument.StoryRanges(wdMainTextStory)
        Do
            With rng.Find
                .Text = Replace(SEARCH_TEXT, AUTHORITY_PLACEHOLDER, authority)
                .MatchWildcards = True
                .Forward = True
                .Wrap = wdFindStop
                .Execute
                If .Found Then
                   
                    end_of_rng = rng.End + 1
                    name = Split(rng.Text, " ")(0)
                    name = Replace(name, "(", "")
                    chapter = Split(Split(rng.Text, " ")(1), ":")(0)
                    verses(1) = Split(Split(rng.Text, ":")(1), "-")(0)
                    'Just in case you need the end reference
                    verses(2) = Split(Split(rng.Text, ":")(1), "-")(1)
                    verses(2) = Replace(verses(2), ")", "")
    
                    ActiveDocument.Hyperlinks.Add _
                        Anchor:=rng, _
                        Address:=Replace(PATH_TO_REFERENCES, AUTHORITY_PLACEHOLDER, authority) & chapter & "_" & verses(1), _
                        TextToDisplay:=rng.Text
                        
                    rng.Start = end_of_rng
                    rng.End = ActiveDocument.StoryRanges(wdMainTextStory).End
                    
                End If
            End With
        Loop Until Not rng.Find.Found
     Next
End Sub

Option Explicit

' Note the use of module scope constants and variable
 
Const NAME                              As Long = 0
Const CHAPTER                           As Long = 1
Const VERSE_1                           As Long = 2
Const VERSE_2                           As Long = 3
Const NULL_REFERENCE                    As String = ",,,"

Const SPACE                             As String = " "
Const COMMA                             As String = ","
Const SEMI_COLON                        As String = ";"
Const HYPHEN                            As String = "-"
Const USCORE                            As String = "_"
Const LBRACKET                          As String = "("
Const RBRACKET                          As String = ")"
Const COLON                             As String = ":"
Const POINT                             As String = "."

Const FULL_HYPERLINK                    As Boolean = True
Const VERSE_ONLY_HYPERLINK              As Boolean = False

Const AUTHORITY_PLACEHOLDER             As String = "<authority>"
Const PATH_TO_REFERENCES                As String = "W:\Skydrive\Docs\<authority>.htm#chpt_"

Const LIST_OF_AUTHORITIES               As String = "John, Matthew,Mark , Revelation," _
                                                    & "Genesis, Exodus , Judges "
                                                    
Private authority_ref()                     As String

Sub main()
 
    Dim authorities()                       As String
    Dim authority                           As Variant
    
    authorities = Split(Replace(LIST_OF_AUTHORITIES, SPACE, vbNullString), COMMA)
    authority_ref = Split(NULL_REFERENCE, COMMA)
    For Each authority In authorities                   'authority is a variant but the sub argument is a string hence the cast
        authority_ref(NAME) = CStr(authority)
        insert_authority_hyperlinks
    Next
   
End Sub
   
Sub insert_authority_hyperlinks()
 
    ' The search text means the following
    ' Search terms have been split into a number of terms using ()
    '(<authority>)  find text starting with the reference authority
    '(*) select all characters until the character specified in the next () field
    '(:) include the colon in the selection
    '(*) select all characters until the character specified in the next field is found
    '([ ,-;]) select all characters until we find a space, comma, hyphen or semicolon
   
    Const PRIMARY_SEARCH_TEXT                       As String = "(<authority>)( @)([0-9])(*)(:)(*)([ ,\-;])"
    
    Dim rng                                 As Word.range
    Dim end_of_rng                          As Long
 
    Set rng = ActiveDocument.StoryRanges(wdMainTextStory)
    Do
        With rng.Find
            .Text = Replace(PRIMARY_SEARCH_TEXT, AUTHORITY_PLACEHOLDER, authority_ref(NAME))
            .MatchWildcards = True
            .Forward = True
            .Wrap = wdFindStop
            .Execute
            If .Found Then
               process_single_hyperlink rng, FULL_HYPERLINK
            End If
        End With
    Loop Until Not rng.Find.Found
   
End Sub

Function process_single_hyperlink(rng As Word.range, hyperlink_type As Boolean)

    Const AFTER_A_NUMBER                        As String = " ),.;"
    Const RUN_OF_NUMBERS                        As String = "([0-9]{1,})"

    Dim last_char                               As String
    
    last_char = rng.Characters.Last.Text
    Select Case last_char
    
        Case HYPHEN
            rng.MoveEndUntil cset:=AFTER_A_NUMBER
            authority_ref(NAME) = Split(rng.Text, SPACE)(0)
            authority_ref(CHAPTER) = Split(Split(rng.Text, SPACE)(1), COLON)(0)
            authority_ref(VERSE_1) = Split(Split(rng.Text, COLON)(1), HYPHEN)(0)
            'Just in case you need the end reference
            authority_ref(VERSE_2) = Split(Split(rng.Text, COLON)(1), HYPHEN)(1)
            authority_ref(VERSE_2) = Mid$(authority_ref(VERSE_2), 1, Len(authority_ref(VERSE_2)) - 1)
            insert_hyperlink rng, FULL_HYPERLINK
            If last_char = COMMA Then
                insert_hyperlink rng, VERSE_ONLY_HYPERLINK
            End If
            
        Case COMMA
            rng.MoveEnd unit:=wdCharacter, Count:=-1
            authority_ref(NAME) = Split(rng.Text, SPACE)(0)
            authority_ref(CHAPTER) = Split(Split(rng.Text, SPACE)(1), COLON)(0)
            authority_ref(VERSE_1) = Split(Split(rng.Text, COLON)(1), HYPHEN)(0)
            insert_hyperlink rng, FULL_HYPERLINK
           
            If rng.Characters.Last = "," Then
                rng.Select
                rng.End = ActiveDocument.StoryRanges(wdMainTextStory).End
                rng.Select
                 With rng.Find
                    .Text = RUN_OF_NUMBERS
                    .MatchWildcards = True
                    .Forward = True
                    .Wrap = wdFindStop
                    .Execute
                End With
                rng.MoveEnd unit:=wdCharacter, Count:=1
                process_single_hyperlink rng, VERSE_ONLY_HYPERLINK
            End If
            
        Case SPACE, SEMI_COLON, POINT, RBRACKET
            rng.MoveEnd unit:=wdCharacter, Count:=-1
            If hyperlink_type = FULL_HYPERLINK Then
                authority_ref(NAME) = Split(rng.Text, SPACE)(0)
                authority_ref(CHAPTER) = Split(Split(rng.Text, SPACE)(1), COLON)(0)
                authority_ref(VERSE_1) = Split(Split(rng.Text, COLON)(1), HYPHEN)(0)
            Else
                authority_ref(VERSE_1) = rng.Text
            End If
            insert_hyperlink rng, hyperlink_type
            
        Case Else
            MsgBox "Oops.  We found something that wasn't expected.  The problem text is selected", vbOKOnly
            rng.Select
            Stop
    End Select
    
End Function

Sub insert_hyperlink(reference As Word.range, hyperlink_type As Boolean)
    
    Dim range_len                       As Long
    
    range_len = reference.Characters.Count
    
    ActiveDocument.Hyperlinks.Add _
                Anchor:=reference, _
                Address:= _
                    Replace(PATH_TO_REFERENCES, AUTHORITY_PLACEHOLDER, authority_ref(NAME)) _
                    & authority_ref(CHAPTER) _
                    & "_" _
                    & authority_ref(VERSE_1), _
                TextToDisplay:=IIf(hyperlink_type, reference.Text, authority_ref(VERSE_1))
    reference.MoveStart unit:=wdCharacter, Count:=range_len
    
End Sub