'
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
本文介绍了一段VBA代码,该代码能够遍历文档中选区的所有段落及其包含的超链接,并显示每个超链接的文本和地址。
1187

被折叠的 条评论
为什么被折叠?



