¿como se eliminan los hipervinculos de todo un documento?

"Mari" escribió en el mensaje news:

Quiero eliminar todos los hipervinculos pero de una sola vez, se puede?

Hola Mari,
puedes eliminarlos todos a la vez si tu intención es eliminar el hipervínculo, pero conservando su texto:
Sheet(Name|Index).Hyperlinks.Delete

Si no me equivoco no existe un método para eliminarlos todos a la vez si la intención es eliminar también el texto. Pero sí
puedes recorrer la colección de hipervínculos de una hoja, y limpiar el contenido de la celda correspondiente a cada hipervínculo:

'******************
Dim objLink As Hyperlink

For Each objLink In ActiveSheet.Hyperlinks
objLink.Range.ClearContents
Next
'******************


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

hola, Mari !

Quiero eliminar todos los hipervinculos pero de una sola vez, se puede?

los hipervinculos en tu documento...
-> son todos 'objetos' hipervinculo ? [o hay tambien por funcion de hoja de calculo =hipervinculo(...)] -?-
-> se encuentran SOLO en celdas ? [o tambien existen asignados a objetos incrustados en las hojas] -?-

comentas ?
saludos,
hector.