KoD Z
12-12-2009, 10:36 AM
Tình hình là hay copy vài bài viết từ trên mạng về, wiki, ... :pcl:
Muốn giữ lại những định dạng table, bold, italic, ... nhưng để in ra cho đẹp chút thì cần xóa đi những hyperlink - liên kết link đến trang web của cụm từ nào đó (lúc copy ra nó sẽ hiện màu xanh dương và có gạch dưới - in trắng đen thì chẳng đẹp chút nào). :empty:
Ví dụ :
I tried so hard and got so far
But, in the end, it doesn't even matter
I had to fall to lose it all
But, in the end, it doesn't even matter
Lúc xóa link xong sẽ ra lại nguyên dạng ko vướn cái link ấy :
I tried so hard and got so far
But, in the end, it doesn't even matter
I had to fall to lose it all
But, in the end, it doesn't even matter
:full:
Tất nhiên là cái trò xóa link trong Word chả có gì khó, cứ nhấp phải - remove hyperlink là xong. Nhưng nếu có ... 1000000 cái link như thế thì ... :down2:
Thế nên để làm công việc xóa link 1 cách auto tự động 100% hoàn toàn, ta sẽ sử dụng Macro trong Word :bath:
Mà ... cái ấy là gì mới dc (dành cho newbie)
Trong Word 2007 hay 2010 Beta (KoDZ đang sài cái này nên tut cho cái này cái đã, 2003 cũng chả nhớ rõ lắm :nono: ), nhấp vô cái Office Button (cái win Logo trên cùng bên trái), vào Word Options
Check cái Show Developer Tab ...
Lúc này trên Ribbon hiện ra cái tab Developer. Nhấp vào Macros (kế Visual Basic)
Lúc này hiện ra cái bảng, gõ vào chỗ Macro name tên cái Macro Remove Hyperlink của mình, bất kì tên nào bạn muốn mà ko trùng với mấy cái có sẵn, ví dụ ở đây là Remove_Hyperlink_KoDZ :D
Xong nhấn Create
Nó sẽ hiện ra cái Microsoft Visual Basic :ice:
Bây giờ nó cho sẵn mình cái form, nếu bạn biết code ròi cứ gõ, ko thì cứ bôi đen hết và paste đoạn code này vào :
Sub Remove_Hyperlink_KoDZ()
Dim i As Long
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub
Xong ở chỗ thanh Menu File => Save Normal, ko thì khỏi cũng dc hình như nó tự lưu. Xong xuôi rou` close cái cửa sổ Microsoft Visual Basic lại, trở lại Word
:peace:
Bây giờ nhấn lại vào Macros ở tab Developer
Bạn gõ vào chỡ Macro Name Remove_Hyperlink_KoDZ (hoặc scroll xuống cái đống dưới tìm cũng dc)
Chọn cái Remove_Hyperlink_KoDZ ở dưới (nhấp chuột trái 1 lần), xong nhấn Run
Bây giờ thì toàn bộ hyperlink trong văn bản hiện tại đang mở từ trang đầu đến cuối hyperlink đã mất hết ròi đó :no1:
***********************************
Written by KoDZ
Muốn giữ lại những định dạng table, bold, italic, ... nhưng để in ra cho đẹp chút thì cần xóa đi những hyperlink - liên kết link đến trang web của cụm từ nào đó (lúc copy ra nó sẽ hiện màu xanh dương và có gạch dưới - in trắng đen thì chẳng đẹp chút nào). :empty:
Ví dụ :
I tried so hard and got so far
But, in the end, it doesn't even matter
I had to fall to lose it all
But, in the end, it doesn't even matter
Lúc xóa link xong sẽ ra lại nguyên dạng ko vướn cái link ấy :
I tried so hard and got so far
But, in the end, it doesn't even matter
I had to fall to lose it all
But, in the end, it doesn't even matter
:full:
Tất nhiên là cái trò xóa link trong Word chả có gì khó, cứ nhấp phải - remove hyperlink là xong. Nhưng nếu có ... 1000000 cái link như thế thì ... :down2:
Thế nên để làm công việc xóa link 1 cách auto tự động 100% hoàn toàn, ta sẽ sử dụng Macro trong Word :bath:
Mà ... cái ấy là gì mới dc (dành cho newbie)
Trong Word 2007 hay 2010 Beta (KoDZ đang sài cái này nên tut cho cái này cái đã, 2003 cũng chả nhớ rõ lắm :nono: ), nhấp vô cái Office Button (cái win Logo trên cùng bên trái), vào Word Options
Check cái Show Developer Tab ...
Lúc này trên Ribbon hiện ra cái tab Developer. Nhấp vào Macros (kế Visual Basic)
Lúc này hiện ra cái bảng, gõ vào chỗ Macro name tên cái Macro Remove Hyperlink của mình, bất kì tên nào bạn muốn mà ko trùng với mấy cái có sẵn, ví dụ ở đây là Remove_Hyperlink_KoDZ :D
Xong nhấn Create
Nó sẽ hiện ra cái Microsoft Visual Basic :ice:
Bây giờ nó cho sẵn mình cái form, nếu bạn biết code ròi cứ gõ, ko thì cứ bôi đen hết và paste đoạn code này vào :
Sub Remove_Hyperlink_KoDZ()
Dim i As Long
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub
Xong ở chỗ thanh Menu File => Save Normal, ko thì khỏi cũng dc hình như nó tự lưu. Xong xuôi rou` close cái cửa sổ Microsoft Visual Basic lại, trở lại Word
:peace:
Bây giờ nhấn lại vào Macros ở tab Developer
Bạn gõ vào chỡ Macro Name Remove_Hyperlink_KoDZ (hoặc scroll xuống cái đống dưới tìm cũng dc)
Chọn cái Remove_Hyperlink_KoDZ ở dưới (nhấp chuột trái 1 lần), xong nhấn Run
Bây giờ thì toàn bộ hyperlink trong văn bản hiện tại đang mở từ trang đầu đến cuối hyperlink đã mất hết ròi đó :no1:
***********************************
Written by KoDZ