Change Hyperlien sous word

Temjeh

XLDnaute Accro
Supporter XLD
Bonjour et merci d'avance

Je ne sais pas trop si c'est la même chose sous word.
Je cherche une boucle macro qui change la couleur de tout les liens hypertextes de mon document.

Je fait un copier/coller du net. La police est gris pâle. Je sélectionne tout et met en noir.

J'aimerais remettre les liens en bleu.

Est-ce possible.


Merci

Temjeh
 

GIBI

XLDnaute Impliqué
Re : Change Hyperlien sous word

Bonjour,

Ici c'est le forum excel.

Toutefois dans word il suffit de modifier le style "lien hypertexte" et le tour est joué : Accueil/style/ la flèche dans le coin en bas à droite ==> dans la boite de dialogue il faut trouver le style puis bouton droit/Modifier Police

Remarque : ceci ne change que les liens hypertexte (comme écrit dans le message), mais je redoute que ce ne soit pas des liens hypertexte mais simplement des libellés qui y ressemblent.

donc il faut plus d'info (adresse mail, URL,.... et tu trouveras plus de compétences sur le forum "autres produit Office"

GIBI
 
Dernière édition:

Temjeh

XLDnaute Accro
Supporter XLD
Re : Change Hyperlien sous word

Merci
Je sais que c'est du VBA Excel ici mais il y a beaucoup de resemblance dans le code VBA
Ptêtre quelqu'un ici l'aurait su.

Je viens de trouvé ce macro:
Code:
Sub ChangeCustomColor()
    CFC = Selection.Font.Color
    Selection.WholeStory
    With Selection.Find
        .Format = True
        .Text = ""
        .Font.Color = CFC
        .Replacement.Text = ""
        If .Font.Color = RGB(51, 51, 51) Then .Replacement.Font.Color = RGB(0, 0, 0)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Il fonctionne 1 fois sur 3 (je ne sais pourquoi) mais ca fonctionne

Temjeh
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
670

Statistiques des forums

Discussions
312 467
Messages
2 088 670
Membres
103 914
dernier inscrit
VAL965698