Ce forum est en partie financé par l’affichage de publicités. Merci de désactiver votre bloqueur de publicités pour nous permettre de continuer à fournir ce service.

Modification en masse de liens hypertextes dans un doc Word

Discussion dans 'Bureautique et productivité' créé par Philippe, 28 Août 2008.

Modérateurs: Aliboron
  1. Philippe

    Philippe Membre d’élite
    Club MacG

    Inscrit:
    10 Mars 2004
    Messages:
    1 170
    J'aime reçus:
    303
    Bonjour à tous.

    J'ai un petit souci avec un document Word qui contient un grand nombre de liens hypertextes. Je tiens, sur un document Word, la liste des membres d'un forum.
    Dans ce document, les membres sont identifiés par leur n° d'inscription sur le forum. Ce n° d'identification renvoie à leur "fiche individuelle" qui est en fait "leur" URL individuelle, ce grâce à un lien hypertexte.
    Le lien hypertexte est donc un lien http, alors que l'affichage, sur le document Word, est un simple n° d'identification.
    Il se trouve que le forum vient de déménager :)
    Les URLs des membres étant ainsi devenues caduques, j'aimerais trouver un moyen d'effectuer un "remplacer par" au niveau des liens hypertextes.
    En gros, le moyen de remplacer les anciennes URLs de type http:..ancienne adresse du forum.php?u=xxx par de nouvelles adresses de type http:..nouvelle adresse du forum.php?u=xxx
    Pour modifier un lien hypertexte, on peut certes cliquer dessus en maintenant la touche CTRL enfoncée. Mais ça implique de recommencer l'opération autant de fois qu'il y a d'adresses à modifier (bon il n'y a pas un si grand nombre de membres que ça :rateau: mais quand même :rateau:).
    Connaîtriez-vous un moyen d'effectuer cette opération "en masse" sur l'ensemble du document Word ?

    Merci d'avance :coucou:
     
  2. Aliboron

    Aliboron Chercheur de son
    Modérateur Club MacG

    Inscrit:
    1 Janvier 2008
    Messages:
    12 814
    J'aime reçus:
    631
    Tu ne précises pas de quelle version de Word il est question. Alors on va faire des suggestions ;)

    Si c'est Word 2004, tu peux faire le changement par une macro VBA comme celle ci-dessous, qui permet de prendre les 13 premiers caractères des tous les liens Hypertexte commençant par "http://chemin" et de leur substituer "http://voie". A personnaliser en fonction de tes besoins.

    Code (Text):

    Sub Macro1()
    For Each UnHyperlien In ActiveDocument.Hyperlinks
    MaChaine = UnHyperlien.Address
    If Left(MaChaine, 13) = "http://chemin" Then
    UnHyperlien.Address = "http://voie" + Right(MaChaine, Len(MaChaine) - 13)
    End If
    Next UnHyperlien
    End Sub
     
    Si tu utilises Word 2008, il faudra évidemment en faire une adaptation en AppleScript...
     
    Philippe aime ça.
  3. Philippe

    Philippe Membre d’élite
    Club MacG

    Inscrit:
    10 Mars 2004
    Messages:
    1 170
    J'aime reçus:
    303
    Bonjour Aliboron :)

    Oups... désolé. C'est Word X :rose:
     
  4. Aliboron

    Aliboron Chercheur de son
    Modérateur Club MacG

    Inscrit:
    1 Janvier 2008
    Messages:
    12 814
    J'aime reçus:
    631
    Bon, il ne devrait pas y avoir de problème particulier pour faire tourner cette macro dans Word v.X (mis à part quelques bugs, il n'y a pas eu de changements de ce point de vue entre la v.X et 2004).
     
  5. Philippe

    Philippe Membre d’élite
    Club MacG

    Inscrit:
    10 Mars 2004
    Messages:
    1 170
    J'aime reçus:
    303
    Ok je vais essayer alors :)


    Merci beaucoup ! :up:
     
Modérateurs: Aliboron
Chargement...