Word macro to find and advance to next hyperlink

I'm trying to find a macro that will search through a document and stop on each hyperlink that is found. Have not been able to find anything after much searching. Kind of like a normal find function, only within a macro that only looks for hyperlinks. I don't want to change or delete the hyperlink - just advance to the next one.
jtabeling3Asked:
Who is Participating?
 
dotofficeConnect With a Mentor Commented:
Sub Macro1()
  Selection.Find.ClearFormatting
  Selection.Find.Style = ActiveDocument.Styles("Hyperlink")
  With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute
 
End Sub
0
 
Paolo SantiangeliConsulente InformaticoCommented:
0
 
jtabeling3Author Commented:
Perfect!!!  Thanks.
0
All Courses

From novice to tech pro — start learning today.