Author Topic: [VB][ACCESS 2010] macro per fix broken link  (Read 7288 times)

0 Members and 1 Guest are viewing this topic.

Offline Raid

  • Administrator
  • Membro esperto
  • *****
  • Posts: 2200
    • www.darkforge.it
[VB][ACCESS 2010] macro per fix broken link
« 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

 

Creative Commons License All ValerioCipriani.com contents are published according to Creative Common License, except different instructions. The Staff is not responsible of eventually guide, article and publishing mistakes. All published items are patent free. All trade marks reported are right reserved. Contact us, Info.