Anita está cambiando el formato de un documento largo (más de 300 páginas) que se convirtió de PDF a Word. Tiene mucha experiencia con Word y estilos y con el uso de Buscar y reemplazar para corregir documentos con formato incorrecto. En este caso, hay un problema que no puede resolver. El documento original tenía líneas horizontales en el encabezado y pie de página que se convirtieron en líneas gráficas en el documento de Word. Quiere eliminar todas esas líneas gráficas, pero buscar ^ g no las encuentra. Anita se pregunta si hay alguna manera de automatizar la eliminación de estas líneas gráficas, ya que preferiría no tener que hacer clic y presionar Del 600+ veces.

Dado que parece que el proceso de conversión de PDF está agregando los gráficos al encabezado y al pie de página, eso significa que no se pueden «encontrar» fácilmente haciendo una búsqueda y reemplazo regular. En su lugar, querrá usar una macro para deshacerse de ellos. El siguiente ejemplo busca solo en el área de encabezado y pie de página y elimina cualquier gráfico que encuentre allí.

Sub FooterHeaderGraphicFind()

Dim rStory As Range     Dim i As Integer

For Each rStory In ActiveDocument.StoryRanges         If rStory.StoryType = wdPrimaryFooterStory Or _           rStory.StoryType = wdPrimaryHeaderStory Then             For i = rStory.Shapes.Count To 1 Step -1                 rStory.Shapes(i).Delete             Next i         End If     Next rStory End Sub

Tenga en cuenta que elimina todas las formas en el encabezado o pie de página, no solo las líneas. (No hay forma de diferenciar el contenido de una forma gráfica de otra.)

Por supuesto, podría haber una forma mucho más sencilla de manejar la situación, sin la necesidad de una macro:

  1. Abra el documento de Word que se convirtió del archivo PDF.

  2. Abra un documento nuevo. (Ahora debería tener dos documentos abiertos al mismo tiempo.)

  3. En el documento convertido, presione Ctrl + A. Esto selecciona todo en el documento.

  4. Presione Ctrl + C. Esto copia todo en el Portapapeles.

  5. Cambie al nuevo documento.

  6. Asegúrese de que se muestre la pestaña Inicio de la cinta.

  7. Haga clic en la flecha hacia abajo debajo de la herramienta Pegar. Word muestra una variedad de opciones para pegar.

  8. Haga clic en la herramienta Conservar solo texto. (Parece un portapapeles con la letra A en la parte inferior derecha). Word pega texto sin formato del Portapapeles en el documento de destino.

Este enfoque debería eliminar cualquier tipo de artefactos gráficos y de formato introducidos en el documento por el proceso de conversión de PDF.

El resultado es un documento «limpio» que puede formatear de la forma que desee.

Este enfoque es especialmente fácil si ha implementado y puede aplicar estilos en todo el documento.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (13510) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.