' 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
