Un coup de pouce pour finaliser une macro MsWord 2007

Bonjour,

J’ai un long fichier, texte-pour-macro-Vba.docm, tout en texte, dans lequel se trouvent de nombreux liens vers des pages Internet du type http://www.xxxxxxxx.php ou https://yyyyy.htm (etc.) sachant que tous commencent par http et tous forment un tout sans espace (le lien est suivi d‘un espace qui délimite, puis un ‘]’) et je voudrais créer par macro des liens hypertextes pour tous ces liens, un par un.
Donc dans un premier temps j’ai fait une macro qui colore en vert ces liens hypertextes (globalement), comme ci-après :

Sub greencolor()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True
    .Replacement.Font.Color = wdColorGreen
    .MatchWildcards = True
    .Text = "(\http*\ )"
    .Forward = True
    .Execute Replace:=wdReplaceAll
    .Text = "\1"
End With
End Sub

Cà marche !
Ensuite, j’ai cherché comment créer une boucle pour que les cas de la sélection soient pris un par un.
J’ai pas pu tester (cela me dépasse), désolée mais cela donne quelque chose comme cela :

Sub boucle
    Dim p As Paragraph
    Dim i As Long
    Dim doc1, As String

    doc1 = "texte-pour-macro-Vba.docm"
    Documents(doc1).Activate

    For Each p In Documents(doc1).Paragraphs
        If blabla (le processus de sélection commençant par ‘htt’ suivi de caractères variables formant un mot entier

    Next

        End With
        Do While Selection.Find.Execute = True
        Loop
    Next i
End Sub

Enfin, j’ai trouvé sur Internet la fonction hyperlinks qui permet de spécifier (convertir) une série de caractères en lien hypertexte :

With Selection
    .Value = TexteLien
    .Hyperlinks.Add Anchor:=Selection, Address:=ClasseurDestination, SubAddress:="'" & FeuilleDestination & "'" & "!" & AdresseDestination, TextToDisplay:=TexteLien
End With

expression . Add( Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target)
seulement anchor est obligatoire
exemple :
ActiveDocument.Hyperlinks.Add Address:="http://www.msn.com/", _ 
 Anchor:=Selection.Range

Voilà j’aurais besoin d’un expert de VBA Word qui me permette de finaliser cette macro en fusionnant (correctement c’est là le souci pour moi… j’y ai déjà passé des heures !) ces 3 bouts de codes.

Merci d’avance,

Steph
PS: désolée je ne souviens plus comment identifier le code VBA, j'ai mis <code>