Tekst omzetten naar hyperlinks

[Kramer]

Hoi Iedereen.

Ik heb elke dag een document met verschillende pagina's (kan 1 pagina zijn kan 10 pagina's) waar ik zoek naar een bepaalde stuk tekst (bijvoorbeeld mijsite) dan kopieer ik de hele regel mysite:// en wat de achterkomt is altijd anders. En dat zeg ik maak hyperlink.

Nu moet dat volgens mij gewoon met een vba code kunnen. Maar ik weet niet hoe ik er voor moet zorgen dat er een lus ontstaat die vanaf het begin van het document zoekt naar mysite:// dan de tekst kopieerd en dan er een link van maakt en dan naar de volgende in het document gaat. Net zolang tot hij aan het einde van het document is. Zelf kom ik niet verder dan dit.

sub link
Dim copy As String
copy = "$1"
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "mysite://"
        .Replacement.Text = ""
        .Forward = True
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.copy
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="$1"
end sub

Maar nu maakt hij van de eerste keer dat hij mysite:// tegenkomt wel een link maar hij zet als link $1.

Wie kan mij een zetje in de goede richting zetten.

Bedank

 

[Hans Gorter]

Is copy niet een ongelukkige naam voor een variabele? Is toch ook een commando? Weet het niet hoor, is een eerste opwelling als ik je code zie.