VBA得到word中的超链接

'
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