'
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本文共 295 字，大约阅读时间需要 1 分钟。
'
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