DarkForge Forum

Forum principali => Programmazione => Topic started by: Raid on Sat 25 May 2013, 18:36

Title: [VB][ACCESS 2010] macro per fix broken link
Post by: Raid on Sat 25 May 2013, 18:36

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