[VB][ACCESS 2010] macro per fix broken link

[Raid]

Code: [Select]

Sub fix_hyperlink()
    Dim hLink As Hyperlink
    Dim wSheet As Worksheet

    For Each wSheet In Worksheets
       For Each hLink In wSheet.Hyperlinks
            hLink.Address = Replace(hLink.Address, "../", "")
        Next hLink
    Next
End Sub
in scrittura