Tengo un archivo de palabras que contiene cientos de líneas horizontales extraídas de "Insertar & gt; Formas & gt; Línea", este documento se creó con una versión anterior de MS Word probablemente 2000. ( actualmente estoy usando la palabra 2016 )
Quiero eliminar todas estas líneas a la vez, no puedo seleccionar cada línea y presionar eliminar para cientos de ellas, ya que tengo cientos de documentos más.
¿Hay una manera de seleccionar y eliminar SOLAMENTE estas líneas de todo el documento a la vez? Cualquier solución por favor!
¡Gracias por su ayuda!
EDITAR: aquí está el enlace al archivo Prueba de eliminación de línea horizontal
Respuestas:
Parece que el código de mi respuesta anterior no está considerando las líneas horizontales creadas en la versión anterior de Word como Formas. Por lo tanto, no ingresa al Loop en primer lugar, por lo que no se trata de eliminar esas líneas. Sin embargo sugiero otra solución. Dale una oportunidad. Sin embargo, primero haga una copia de seguridad de su documento.
Convierta este documento al último formato docx o docm guardando primero en su versión de Office 2013/2016. No trabaje en el Modo de compatibilidad, de lo contrario, la opción que se sugiere a continuación puede no estar disponible.
Precaución: esto podría incluso reemplazar cualquier otro gráfico. Así que tenga cuidado y pruébelo primero en su documento antes de implementarlo.
fuente
En el documento que contiene las líneas CTRL + A y luego CTRL + C
Abra un nuevo documento de Word
Haga clic derecho en el espacio en blanco & gt; Opciones de pegado & gt; Mantener solo texto
fuente
Puede explorar el Código VBA mencionado a continuación para eliminar líneas de su documento de Word.
Primero guarde el documento en su último formato de Word como .docm (Macro habilitado para Word Doc).
Abra el DOS y presione ALT + F11 para acceder al Editor VBA. Desde el menú Insertar, inserte un Módulo. Pega el siguiente código de subrutina
Guarda el documento. En el documento principal, presione ALT + F8 y ejecute esta macro.
Tenga en cuenta que - La macro dio resultados impredecibles en mi Word 2013. Eliminó todas las líneas menos una. Al volver a ejecutar la macro se borró la línea pendiente. En segundo lugar, la macro parece ser incapaz de distinguir entre una línea y una flecha. Así que también eliminó flechas. No tocó otros objetos como imágenes insertadas o rectángulos. Esto se intenta seleccionando
If H_Line.Type = msoLine Then
parte del código.Así que antes de intentar cualquier cosa, por favor haga una copia de seguridad de su documento original. Tampoco estoy muy seguro de cómo el documento antiguo creado en Word 2000 puede responder a este código, si el código fuera compatible. Pruébalo.
fuente