'
For i = 1 To Selection.Paragraphs.Count
For j = 1 To Selection.Paragraphs(i).Range.Hyperlinks.Count
MsgBox Selection.Paragraphs(i).Range.Hyperlinks(j).TextToDisplay
MsgBox Selection.Paragraphs(i).Range.Hyperlinks(j).Address
Next
Next
转载于:https://www.cnblogs.com/Dennis-mi/articles/3456275.html