MS Word: Xóa tất cả hyper link có trong văn bản.

Vào một ngày bạn cần xóa tất cả hyper link có trong bản word bạn đang soạn thảo.

Để thực hiện điều này hãy làm theo hướng dẫn sau:

Đầu tiên bạn hãy ấn Ctrl+A và ấn Ctrl+J để canh đều cả chữ và ảnh.

Sau đó bạn ấn Alt+F11 để vào cửa sổ soạn thảo VBA. Thực hiện chọn Insert - Module sau đó nhập vào đoạn code sau:

Sub KillTheHyperlinks() 
' -----------------------------------------------
' Removes all hyperlinks from the document:
' Text to display is left intact
' -----------------------------------------------
With ThisDocument 
' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0 
.Hyperlinks(1).Delete 
Wend 
End With 
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False 
End Sub

Sau đó ấn F5 hoặc chọn Run Sub/UserForm. Thì tất cả các ảnh trong tài liệu của bạn sẽ được canh giữa.

Chúc các bạn thành công