Modification en masse de liens hypertextes dans un doc Word

[Philippe]

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

 

[Aliboron]

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.

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]

Bonjour Aliboron

Tu ne précises pas de quelle version de Word il est question.

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

 

[Aliboron]

C'est Word X

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).

 

[Philippe]

Ok je vais essayer alors


Merci beaucoup !