.... als ik die koppelingen kan verwijderen dacht ik, dan kun je ze misschien ook vervangen (truc?) of macro.
Hallo De Hulk,
met zoeken en de hulp van een andere helper heb ik toch een macro bekomen die ganse pagina's in Word de hyperlinks omzet naar de weergegeven tekstnaam & de locatie E:\INDEX\
Sub Hyperlinks_Omzetten()
Dim tmp As Variant
Dim hLink As Hyperlink
For Each hLink In ActiveDocument.Hyperlinks
tmp = Split(hLink.Address, "/")
hLink.Address = "E:\INDEX\" & tmp(UBound(tmp))
Next hLink
End Sub
Deze macro zet je in je Word-Document, waarin je de webpagina van Wiki hebt gekopieerd.
Dus in je browser surf je naar
https://nl.wikipedia.org/wiki/Categorie:KleurJe kiest in je browser "Pagina opslaan als..." en kiest *.htm als bestandstype en een download locatie, bvb je bureaublad.
Je opent Word, Menu Ontwikkelaars, klik op Visual Basic.
In het venster van VBA kies je Beeld, Projectverkenner en vinkt deze aan (als het deelvenster Project nog niet zichtbaar is in je VBA venster).
In het deelvenster Project selecteer je
Normal, Modules, NewMacros.
Kopieer en plak de tekst in het vak
Code: in dit bericht en plak het onder eventueel aanwezige macro's in NewMacros.
Kies Opslaan (of Bestand, Normal Opslaan)
Kies nu voor Openen en kies voor het opgeslagen bestand "Categorie Kleur - Wikipedia.htm
De wikipedia pagina opent nu in Word.
Mogelijk wil je hier eerst een deel tekst weghalen die je niet wilt.Daarna kies je voor het menu Ontwikkelaars, Macro's, en selecteer "Hyperlinks_Omzetten" en klik op
Uitvoeren.
Al de Hyperlinks worden nu omgezet naar E:\INDEX\.... zo wordt bvb
https://nl.wikipedia.org/WiKi/Kaki (kleur) omgezet naar
E:\Index\Kaki (Kleur)Je kan hier natuurlijk op verder bouwen, en bijvoorbeeld een invoervak oproepen waarin je de naam van de map opgeeft.
Dus nu staat standaard (vast) in de Macro dat het doel E:\Index\ is, maar dan kan je in dat invoerveld een ander doel ingeven.
ik hoor het wel of het lukt.
SoftAid