Konverterere >2.000 UNC stier til drev navn i Word 97 filer

Her er en kode der åbner alle worddokumenter i et bibliotek + alle underbiblioteker. Hvis den finder et hyperlink der indeholder den gamle sti erstatter den med ny sti og gemmer filen. Indsæt selv brugervariablerne. Sti er den sti der skal søges worddokumenter i, gammeladresse= første del af den gamle hyperlinkssti fx. //Datasrv1/Data.
Ny_adresse= erstatningsadressen fx //Nordborg01/dataområde

Test den først for den er konverteret fra excel.

Sub Makro1()
Dim Sti, Gammeladresse, Ny_Adresse As String
Set fs = Application.FileSearch
'************************************
'BRUGERVARIABLE
Sti = "C:\dokumenter"
Gammeladresse = "C:\"
Ny_Adresse = "C:\temp"
'************************************
Application.ScreenUpdating = False
With fs
.NewSearch
.LookIn = Sti
.SearchSubFolders = False 'Ændres efter behov
.FileName = "*.doc"
End With
If fs.Execute(SortBy:=msoSortByFileName, _
  SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To fs.FoundFiles.Count
    fil = fs.FoundFiles(i)
    Documents.Open fil, 0
    For Each h In ActiveDocument.Hyperlinks
            If InStr(h.Address, Gammeladresse) > 0 Then
                test = 1
                gl_adr = h.Address
                ny_adr = Ny_Adresse & Right(gl_adr, Len(gl_adr) - Len(gammel_adresse))
                h.Address = ny_adr
            End If
    Next
  If test = 1 Then
    ActiveDocument.Close savechanges:=True
    Else
    test = 0
    ActiveDocument.Close savechanges:=False
  End If
  Next
  End If
  Application.ScreenUpdating = True
  End Sub

Sorry, virker ikke helt efter hensigten.
Erstat linien
ny_adr = Ny_Adresse & Right(gl_adr, Len(gl_adr) - Len(gammel_adresse))
med

ny_adr = Replace(gl_adr, Gammeladresse, Ny_Adresse)

Hvis også hyperlinkteksten skal ændres kan du sætte denne linie ind under h.Address=ny_adr.
h.TextToDisplay = ny_adr
En ting jeg har glemt at skrive er at makroen kun kan køre i word2000, men retter selvfølgelig også word97 filer. Dette skyldes at funktionen replace ikke findes i word97. Dette kan omgåes ved selv at lave en tilsvarende funktion.

itognet> kan du bruge svaret??