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

Started by Raid, Sat 25 May 2013, 18:36

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Raid

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
Print
Go Up Pages1
User actions