Change Hyperlien sous word

  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Temjeh

XLDnaute Accro
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
 
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:
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
Réponses
1
Affichages
4 K
Conrad13
C
N
Réponses
4
Affichages
1 K
nathg31
N
S
Réponses
30
Affichages
4 K
Sacha1980
S
M
Réponses
2
Affichages
1 K
Mr.Nobody
M
A
  • Question Question
Réponses
24
Affichages
6 K
artlight
A
T
Réponses
1
Affichages
1 K
titous68
T
U
  • Question Question
Réponses
16
Affichages
2 K
Unkar_plutt
U
J
Réponses
1
Affichages
1 K
J
Retour