NumberToLink.vba

Sub NumberToLink()
    Dim numStars As Integer
    If ActiveDocument.Footnotes.Count >= 1 Then
        If Len(ActiveDocument.Footnotes(1).Reference.Text) = 0 Then
            numStars = 1
        Else
            If Asc(ActiveDocument.Footnotes(1).Reference.Text) = 2 Then
                numStars = 0
            Else
                numStars = 1
            End If
        End If
    Else
        numStars = 0
    End If
    
    Dim DisplayText As String
    Dim DisplayNumeric As Integer
    Dim Item As String

    DisplayText = Selection.Text
    DisplayNumeric = Val(DisplayText)
    Item = CStr(DisplayNumeric + numStars)

    Selection.InsertCrossReference ReferenceType:="Footnote", ReferenceKind:= _
        wdFootnoteNumber, ReferenceItem:=Item, InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub