.NET y Excell

[txarly]

A traves del siguiente código quiero recorrer los hipervinculos de un documento de Excell, lo tengo resuelto en Word y Powerpoint, pero en Excell me da error en la linea marcada en negrita, alguien sabe porque?

Código:

Dim EA As Microsoft.Office.Interop.Excel.Application
Dim WB As Microsoft.Office.Interop.Excel.Workbook
Dim WS As Microsoft.Office.Interop.Excel.Worksheet
Dim HL As Microsoft.Office.Interop.Excel.Hyperlink

EA = New Microsoft.Office.Interop.Excel.Application
EA.Visible = False
WB = EA.Workbooks.Open(pathFichero)
For Each WS In WB.Worksheets
  For Each HL In WS.Hyperlinks
    With HL
      .Address = ModAddress(.Address)
    End With
  Next HL
Next WS

WB.Save()
WB.Close()
EA.Quit()
EA = Nothing

ModAddress es una Funcion propia para cambiar la url a la que apuntan los links.

[Jose_minglein2]

Acabo de descubrir Microsoft.Office.Interop, mi intención es obtener el texto de un archivo de Word, podrías darme alguna orientación de como leerlo???Estoy intentando con Microsoft.Office.Interop.Word.Document, pero ando un poco atascadillo

[txarly]

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

[Jose_minglein2]

Muchas gracias, voy a probar tu code,