提取word中的所有超链接

1年前 (2017-08-19) dyfwind 计算机应用技术 0评论 已收录 650℃

提取word中的所有超链接,工作需要有此需求,意外发现了这个方法,实测很好用;

Sub 超链接提取()
'
' 超链接提取 宏
'
'

For Each aHyperlink In ActiveDocument.Hyperlinks

With Selection

.InsertAfter aHyperlink.Name

.Collapse Direction:=wdCollapseEnd

.InsertParagraphAfter

End With

Next aHyperlink

End Sub

博主

这货来去如风,什么鬼都没留下!!!

相关推荐

嗨、骚年、快来消灭0回复。