Viele Hyperlink-Ziele in Word ändern

Hallo,

also: meine Chefin schreibt an einen QM-Dokument und setzt dort an die 100 Hyperlinks mit Pfaden zu anderen Dokumenten auf dem Server. Nun wird aber planmäßig in 2 Wochen der Name des Hauptordners geändert: von "FTZ" auf "Avanta".

Mit der Suchen-Ersetzenfunktion wird zwar die Anzeige geändert und wenn ich die Funktionen einblende auch "scheinbar" der Pfad, aber der Klick mit der rechten Maustaste auf den Link - dann auf Bearbeiten zeigt, dass eigentlich gar nichts geändert wurde, und der Link deswegen auch nicht funktioniert.

Bitte bitte um eure Hilfe, wie die Links, OHNE jeden einzelnen neu verknüpfen zu müssen, "relativ" schnell an den neuen Pfad - Namen angepasst werden können.

DANKE und regnerische Grüße aus München

Const OldText = "FTZ"  
Const NewText = "Avanta"  

Sub ReplaceHyperlinks()
   Dim Link As Hyperlink
   For Each Link In ActiveDocument.Hyperlinks
      Link.Address = Replace(Link.Address, OldText, NewText, 1, -1, vbTextCompare)
   Next
End Sub

Const OldText = "FTZ"  
Const NewText = "Avanta"  

Sub ReplaceHyperlinks()
   Dim Link As Hyperlink
   For Each Link In ActiveDocument.Hyperlinks
      Link.Address = Replace(Link.Address, OldText, NewText, 1, -1, vbTextCompare)
      Link.TextToDisplay = Link.Address
   Next
End Sub