Tecnología

Inicio

Cómo quitar hipervínculos en VBA

January 1

Cada copia de los principales programas de Microsoft Office 2010, como Excel y Word, viene con un lenguaje de programación incluido llamado Visual Basic para Aplicaciones. VBA puede automatizar los procesos en el programa, lo que permite realizar de forma rápida y automáticamente las tareas repetitivas, tales como la eliminación de los hipervínculos, dentro del programa. El código exacto para la eliminación de hipervínculos dependerá del programa de Microsoft Office que está utilizando.

Instrucciones

1 Abra el programa Microsoft Excel o Microsoft Word que desea alterar. Una vez que se abre el programa, pulse "Alt" y "F11" para abrir la consola de VBA.

2 Haga clic en el menú "Insertar" en la parte superior de la consola y elegir la opción "Módulo" en el menú desplegable. Haga clic en la gran caja blanca en el lado derecho de la consola para colocar el cursor en la caja.

3 Introduzca la siguiente línea en la caja, sin comillas: "RemoveLinks Sub ()". Pulse la tecla "Enter" y VBA entrará automáticamente en el comando "End Sub" por debajo de la línea "Sub".

4 Introduzca el código siguiente, sin comillas, si va a quitar hipervínculos de una hoja de cálculo Excel: "Rango:".. Hyperlinks.delete ( "X1 Y2)" Cambio "X1" a la celda superior izquierda del rango que desea quitar hipervínculos desde y cambiar "Y2" a la celda inferior derecha. Introduzca el código siguiente, sin comillas, si está en su lugar a quitar hipervínculos de un documento de Word: ". Selection.Range.Hyperlinks (1) .Delete" Esto eliminará los hipervínculos de cualquier selección.

5 Haga clic en la "X" en la parte superior de la pantalla para cerrar la consola de VBA. Sus cambios de código son una parte del documento u hoja de cálculo, por lo que no es necesario guardarlos. Para ejecutar el código, haga clic en el botón "Macros" en la pestaña "desarrollador". Seleccione "RemoveLinks" y haga clic en "Ejecutar".

Consejos y advertencias

  • Si desea eliminar rápidamente todos los enlaces en un documento de Word en lugar de sólo los eslabones de una selección dada, puede utilizar el siguiente código:
  • RemoveLinks sub ()
  • con ActiveDocument
  • Mientras .Hyperlinks.Count> 0
  • .Hyperlinks (1) .Delete
  • Encaminarse a
  • Terminar con
  • End Sub