WordVBA清除超链接_imburse

个人资料

微博

正文字体大小：大中小

WordVBA清除超链接

(2022-08-02 14:55:39)

分类： VBA

Sub WordClearHyperlinks()

Dim oField As Field

For Each oField In ActiveDocument.Fields

If oField.Type = wdFieldHyperlink Then

oField.Unlink

End If

Set oField = Nothing

End Sub

============================================

Sub WordClearHyperlinks()

For Each link In ActiveDocument.Hyperlinks

link.Delete

End Sub

============================================

Sub PPTClearHyperlinks()

For Each link In ActiveWindow.Selection.SlideRange.Hyperlinks

link.Delete

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report