Cómo borrar líneas horizontales dibujadas en MS Word

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

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.

1. En la pestaña de la cinta de inicio, vaya a Buscar - & gt; Búsqueda avanzada
2. Desplegable Especial y seleccione Gráfico
3. Encuentra qué cuadro de texto debe contener ^ g
4. Vaya a Reemplazar y no ingrese nada y presione Reemplazar (para reemplazar caso por caso) o Reemplazar todo para borrar todo de una vez.

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.

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

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

Sub DelLines()

Dim H_Line As Shape

For Each H_Line In ActiveDocument.Shapes

    If H_Line.Type = msoLine Then
       H_Line.Delete
    End If

Next H_Line

End Sub

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.