Trang chủ » Thủ Thuật » Word – Remove all Hyperlinks

Word – Remove all Hyperlinks

Two Macros to remove Hyperlinks (they leave the text, but remove the link from the text) :

Macro 1) this one works great and is simpler than the second one. However, I am including the second one, just in case it has some extra functionality that I am not yet aware of.

Dim i As Long
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
Next i

Macro 2) also works great

Dim oField As Field
‘Dim oRange As Range

For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
‘Set oRange = oField.Result
‘oRange.Style = wdStyleHyperlink
End If

Set oField = Nothing
‘Set oRange = Nothing

NOTE: If the document contains fields other than Hyperlinks then this macro will remove the links from just those fields that are Hyperlinks and leave the others alone. Note that if you want to keep the Hyperlink style then remove the apostrophe ( ‘ ) from the front of the lines that contain oRange. Otherwise this will convert them to text just as the Unlink Fields command does.


Bình luận

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập: Logo

Bạn đang bình luận bằng tài khoản Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s