Macro
Hola! Prueba con esta macro y me cuentas:
Sub EliminarHipervinculos()
Dim hiper As Hyperlink
For Each hiper In ActiveSheet.Hyperlinks
hiper.Delete
Next
End Sub
Quita ella sola todos los hipervínculos que tengas en la hoja activa. Espero te sirva, si es así no olvides finalizar la pregunta, ¿ok? Un saludo
Sub EliminarHipervinculos()
Dim hiper As Hyperlink
For Each hiper In ActiveSheet.Hyperlinks
hiper.Delete
Next
End Sub
Quita ella sola todos los hipervínculos que tengas en la hoja activa. Espero te sirva, si es así no olvides finalizar la pregunta, ¿ok? Un saludo
1 Respuesta
Respuesta de villaju
1
¿Para Word? Siento ser tan brusca, pero aquí pone clarísimamente que se trata de un foro de EXCEL. No conozco el modelo de objetos de Word (si lo conociese, estaría como experta en Word, y no lo estoy). Mira, hay un foro que es de word, pregunta allí. Yo sólo te puedo decir que la macro que te envié (y en el que tuve que invertir tiempo para hacerla) funciona perfectamente en Excel, pues la he probado. Sólo te pido que valores mi esfuerzo y finalices la pregunta.
Disculpa, pero creí que una persona que tiene un amplio dominio de la programación, con solo un poco de crettividad puede solucionar un porlbema que solo es de bucles (Creo)
