Mise en forme Hyperlinks

[sirkim]

Bonjour,
je voudrais creer un macro qui mette en forme tous les liens hypertext de mon document word (avec la mise en forme "lien hypertexte")

Merci d'avance de votre aide.

[zazaraignée]

Tu peux créer un nouveaux style de liens hypertexte et l'attribuer à tes liens. Une fois le style créé, ta macro devient un peu plus simple.

Code :

1
2
3
4
5
6
Sub MAFLiens()
    Dim lh As Hyperlink
    For Each lh In ThisDocument.Hyperlinks
        lh.Range.Style = ThisDocument.Styles("MesLiens")
    Next
End Sub

Tu peux enregistrer la création du nouveau style dans une macro si tu crains que le style ne suive pas lors de l'échange du fichier vers une autre machine.