PowerPoint: Cómo modificar el path de varios hipervínculos en vba.

Buenos días, tengo un powerpoint con muchos hiperlinks, tanto a otras diapositivas de la misma presentación, como a documentos de word y webs. La presentación está en red y muchos documentos en subcarpetas.

Lo que necesito es poder modificar dicho path. Por ejemplo:

\\datos\datos\USUARIOS\carpetaFinal\ext1.docx

a

c:\CarpetaFinal

El código de ayuda de Microsoft:

For Each hl In ActivePresentation.Slides(1).Hyperlinks
If hl.Address = "c:\current work\sales.ppt" Then
hl.Address = "c:\new\newsales.ppt"
End If
Next

me serviría en el caso de que fuera una sola diapositiva, pero no para todas al mismo tiempo.

Espero que podáis echarme una mano. Gracias.

Walden.