Lo solucioné así:
Código:
Dim EA As Microsoft.Office.Interop.Excel.Application
Dim WB As Microsoft.Office.Interop.Excel.Workbook
Dim sheet As Microsoft.Office.Interop.Excel.Worksheet
Dim i As Integer, j As Integer
EA = New Microsoft.Office.Interop.Excel.Application
EA.Visible = False
WB = EA.Workbooks.Open(pathFichero)
For i = 1 To WB.Worksheets.Count
sheet = WB.Worksheets(i)
For j = 1 To sheet.Hyperlinks.Count
sheet.Hyperlinks(j).Address = ModAddress(sheet.Hyperlinks(j).Address)
Next
Next
WB.Save()
WB.Close()
EA.Quit()
EA = Nothing
Hola Jose_minglein2, respecto a Word, dejo el codigo para acceder a los hipervinculos, no he probado a acceder al texto pero supongo que con algun metodo del objeto Microsoft.Office.Interop.Word.Document...
Código:
Dim WA As New Microsoft.Office.Interop.Word.Application
Dim WD As Microsoft.Office.Interop.Word.Document
Dim HL As Microsoft.Office.Interop.Word.Hyperlink
WA.Visible = False
WD = WA.Documents.Open(pathFichero)
For Each HL In WD.Hyperlinks
With HL
.Address = ModAddress(.Address)
End With
Next HL
WD.Save()
WD.Close()
WA.Quit()
WA = Nothing