Procédure de programmation pour modifier tous les liens hypertexte dans un document Word?

Est-il une macro, VBA code ou VBScript que je peux écrire pour modifier les url de tous les liens hypertexte dans mon document Word? Word 97-2003 ou en format docx.

Ce genre de modifications voulez-vous faire? Voulez-vous passer par chaque lien hypertexte ou de faire le même changement de chaque?
Fondamentalement, je veux faire un remplacement sur chaque lien hypertexte. Le nom du serveur de fichiers changé.

OriginalL'auteur jinsungy | 2010-07-28

  1. 12
    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

    Voici un lien vers tous les Lien hypertexte Méthodes et Propriétés

    A parfaitement fonctionné. Merci.
    M'a aidé, ainsi, je vous remercie!
    Cela ne fonctionne pas avec des images avec des liens hypertexte =/ savez-vous comment obtenir ces?

    OriginalL'auteur Tester101

  2. 0

    Cela m'a aidé énormément. L'utilisateur a ouvert des documents Word contenant des liens hypertexte grâce à son lecteur mappé au lieu d'aller dans le long chemin à travers le réseau. Des centaines de docs seront sauvés!

    J'ai utilisé mi() fonction:

    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

    OriginalL'auteur Alexandra Robin

  3. 0

    Grâce au Testeur de la solution, utilisée pour un remplacement rapide:

    Sub ReplaceLinks()

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

        'Update old bookmarks to https
        doc.Hyperlinks(i).Address = Replace(doc.Hyperlinks(i).Address, "gopher:", "https://")

   Next
Next
End Sub

    OriginalL'auteur Chema