"Zoeken en vervangen" van hyperlinks met VBA in Word

[Rikja]

Hallo,

Office 2007 NL Entreprise, Windows 7 64bit.

Ik zoek een manier op met VBA-code al de hyperlinks onder de woorden in een Word-document (altijd dezelfde hyperlink) te vervangen door een andere hyperlink.
Deze nieuwe hyperlink moet bestaan uit een verwijzing type "C:\Trials\xxxxx" waar xxxxx de naam is van het woord waaronder die bepaalde hyperlink zit.

Voorbeeld:
Het eerste gevonden woord waar een hyperlink aan gekoppeld is: Rikja en heeft als hyperlink "http://www.helpmij.nl/Rikja". Deze moet vervangen worden door de hyperlink "C:\Trials\Rikja"
Het tweede gevonden woord waar een hyperlink aan gekoppeld is: Helpmij en heeft als hyperlink "http://www.helpmij.nl/Helpmij". Deze moet vervangen worden door de hyperlink "C:\Trials\Helpmij"
Next
(In Verkenner zijn "Rikja" en "Helpmij bestaande submappen in C:\Trials\ )


Een 2de optie is een macro met invoervelden, een waarin de zoekterm kan worden ingevoerd, en een waar de vervangterm kan worden ingevoerd. Just in Case...

Elke hulp is welkom. Ik heb redelijk ervaring met VBA in Excel, maar "nul,nul" ervaring in Word.

Hartelijk dank.

Rikja

 

[OctaFish]

Met een kleine macro kom je een heel eind, als de structuur tenminste hetzelfde is:

Dim tmp As Variant
Dim hLink As Hyperlink

For Each hLink In ActiveDocument.Hyperlinks
    tmp = Split(hLink.Address, "/")
    hLink.Address = "C:\Trials\" & tmp(UBound(tmp))
Next hLink

 

[Rikja]

Hallo OctaFish,

je macro werkt perfect, en doet net wat hij moet doen.

Hartelijk dank, en tot wederdienst bereid.

Met vriendelijke groeten,

Rikja.

 

[OctaFish]

Mag je als tegendienst de vraag nog op <Opgelost> zetten

 

[Rikja]

Graag, OctaFish, als ik de knop vind...???


:thumb: