वर्ड दस्तावेज़ में प्रोग्रामेटिक रूप से सभी हाइपरलिंक्स को कैसे संपादित करें?

Question

क्या कोई मैक्रो, वीबीए कोड या वीबीस्क्रिप्ट है जिसे मैं अपने वर्ड दस्तावेज़ में सभी हाइपरलिंक्स के यूआरएल को संपादित करने के लिए लिख सकता हूं? या तो शब्द 97-2003 या डॉक्क्स प्रारूप।

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 

यहाँ सब Hyperlink Methods and Properties

Answer 2

के लिए एक लिंक यह मैं बेहद मदद की है। उपयोगकर्ता ने वर्ड डॉक्स को नेटवर्क के माध्यम से लंबे समय तक जाने के बजाए अपने मैप किए गए ड्राइव के माध्यम से हाइपरलिंक युक्त खोला था। सैकड़ों दस्तावेज़ बचाए जाएंगे!

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