Convert plaintext to hyperlink in footnote section

[henrychang]

Hi all,

Is it possible to convert all "url-text" to hyperlinked text?
I googled several methods, but all methods seems only applied to main text but not footnote section.
For example: https://www.datanumen.com/blogs/5-wa...word-document/
This site provides "auto format" method, but auto format seems not applies to footnote or endnote section.
Anyone can help? Thanks in advance!!

[macropod]

Try:

Sub ConvertURLTextsToHyperlinksInDoc()
Application.ScreenUpdating = False
Dim wdRng As Range
For Each wdRng In ActiveDocument.StoryRanges
  With wdRng
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "htt[ps]{1,2}://[!^13^t^l ^s]{1,}"
      .Replacement.Text = ""
      .Forward = True
      .Format = False
      .Wrap = wdFindStop
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      If .Characters.Last Like "[:;.,(?)!})]" Then .End = .End - 1
      .Hyperlinks.Add .Duplicate, .Text, , , .Text
      .Start = .Hyperlinks(1).Range.End
      .Find.Execute
    Loop
  End With
Next
Application.ScreenUpdating = True
End Sub

[henrychang]

Thank you very much for you reply!!
But in my word file the "url-text" usually ends with a period or a semicolon and it will make a dead hyperlink (the correct url should not include the period/semicolon).
Could you kindly teach me how to trim the last character if the url-text ends with a period/semicolon?

[henrychang]

Thank you very much!!
It really saved me a lot of time!
I revised the code a little bit as below:

Sub ConvertURLTextsToHyperlinksInDoc()
Dim wdRng As Range
For Each wdRng In ActiveDocument.StoryRanges
With wdRng
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "htt[ps]{1,2}://[!^13^t^l ]{1,}"
.Replacement.Text = ""
.Forward = True
.Format = False
.Wrap = wdFindStop
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
If .Characters.Last Like "." Or .Characters.Last Like ";" Then .End = .End - 1
.Hyperlinks.Add .Duplicate, .Text, , , .Text
.Start = .Hyperlinks(1).Range.End
.Find.Execute
Loop
End With
Next
End Sub

[macropod]

Your 'revision' makes the trimming less comprehensive than my code. I doubt you really want to include punctuations other than '.' & ':', or closing parentheses & braces, as part of the hyperlink.

[henrychang]

I tried to use your code , but it seemed unable to trim the unwanted punctuations.
For example,

Roa, Felipe Suescun de, Comments on the ICSID Award Saipem v. Bangladesh: Would its rationale be applicable in future cases?, INT'L INST. FOR CONFLICT PREVENTION & RESOL. (May 5, 2011), http://www.cpradr.org/news-publications/articles/2011-05-05-comments-on-the-icsid-award-saipem-v-bangladesh-would-its-rationale-be-applicable-in-future-cases-2011-writing-contest-winner.

This url-text cannot be recognized correctly, still includes the last period.

Sub ConvertURLTextsToHyperlinksInDoc()
Dim wdRng As Range
For Each wdRng In ActiveDocument.StoryRanges
  With wdRng
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "htt[ps]{1,2}://[!^13^t^l ]{1,}"
      .Replacement.Text = ""
      .Forward = True
      .Format = False
      .Wrap = wdFindStop
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      If .Characters.Last Like "[!:;.,?})]" Then .End = .End - 1
      .Hyperlinks.Add .Duplicate, .Text, , , .Text
      .Start = .Hyperlinks(1).Range.End
      .Find.Execute
    Loop
  End With
Next
End Sub

[macropod]

Try using:
If Not .Characters.Last.Text Like "[0-9A-Za-z]" Then .End = .End - 1
or, if you data include high-end ASCII characters:
If Not .Characters.Last.Text Like "[0-9A-Za-zÀ-ÿ]" Then .End = .End - 1

[Marrick13]

Is there a way to include text starting with "www" in this code? I tried:

.Text = "htt[ps]{1,2}://[!^13^t^l ]{1,}" Or .Text = "www{1,2}://[!^13^t^l ]{1,}"

but it produces an error in runtime. My workaround would be to just run the code a second time but for "www" instead of "htt[ps]", but I'd rather just run it once and cover all three "http", "https", and "www" instances.

[macropod]

You cannot use OR functions in the Find expression. You might, however, use:
.Text = "[wh][wt][wtps]{1,3}[./][!^13^t^l ^s]{1,}"

[Marrick13]

Wow - I never would have figured that out! Thanks, Macropod.