Làm thế nào để lập trình chỉnh sửa tất cả các siêu liên kết trong một tài liệu Word?

Question

Có macro, mã VBA hoặc VBScript mà tôi có thể viết để chỉnh sửa các url của tất cả các siêu liên kết trong tài liệu Word của tôi không? Hoặc là định dạng Word 97-2003 hoặc docx.

Answer 1

Dim doc As Document 
Dim link, i 
'Loop through all open documents. 
For Each doc In Application.Documents 
    'Loop through all hyperlinks. 
    For i = 1 To doc.Hyperlinks.Count 
     'If the hyperlink matches. 
     If LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.com/" Then 
      'Change the links address. 
      doc.Hyperlinks(i).Address = "http://www.google.com/" 
      'Change the links display text if desired. 
      doc.Hyperlinks(i).TextToDisplay = "Changed to Google" 
     End If 
    Next 
Next 

Dưới đây là một liên kết đến tất cả các Hyperlink Methods and Properties

Answer 2

này đã giúp tôi vô cùng. Người dùng đã mở Tài liệu Word chứa siêu liên kết thông qua ổ đĩa được ánh xạ của mình thay vì đi theo đường dài qua mạng. Hàng trăm tài liệu sẽ được lưu!

tôi đã sử dụng giữa() chức năng:

Sub FixMyHyperlink() 

    Dim doc As Document 
    Dim link, i 

    'Loop through all open documents. 
    For Each doc In Application.Documents 
     'Loop through all hyperlinks. 
     For i = 1 To doc.Hyperlinks.Count 
      'If the hyperlink matches. 
      If LCase(doc.Hyperlinks(i).Address) Like "*partOfHyperlinkHere*" Then 
       'Change the links address. Used wildcards (*) on either side. 
       doc.Hyperlinks(i).Address = Mid(doc.Hyperlinks(i).Address, 70,20)  ' 
       'Change the links display text if desired. 
       'doc.Hyperlinks(i).TextToDisplay = "Oatmeal Chocolate Chip Cookies" 
      End If 
     Next 
    Next 
End Sub