Cómo escribir macros de limpieza de documentos en Word 2016

  1. Software
  2. Oficina de Microsoft
  3. Palabra
  4. Cómo escribir macros de limpieza de documentos en Word 2016

Libro Relacionado

Por Dan Gookin

Antes de esa grabación final, o en cualquier momento que esté trabajando en un documento grande en Word 2016, considere la posibilidad de realizar una limpieza del documento. Es un proceso que implica la búsqueda de personajes deshonestos y otros textos problemáticos.

Una rutina de limpieza de documentos implica buscar espacios al final de los párrafos, doble espacio, doble tabulación y doble tecla Enter (párrafos vacíos). Estos son todos los elementos que deben evitarse, pero terminan en documentos largos de todos modos.

El proceso de eliminación de estos elementos no deseados implica la utilización de la ventana de diálogo Buscar y reemplazar. Necesita utilizar el botón Especial para introducir caracteres especiales, como Espacio, Tabulación y Entrar.

La macro creada para realizar la tarea de limpieza de documentos grabó las pulsaciones de teclas utilizadas para buscar y reemplazar los distintos caracteres. Luego se utilizó el Editor de Visual Basic para eliminar parte del código redundante. Aquí está el resultado:

Limpieza_de_subdocumentos()

Macro document_cleanup

Eliminar los espacios de arrastre y los espacios dobles, las pestañas y las teclas Enter

Selection.HomeKey Unit:=wdStory

Selección.Buscar.BorrarFormato

Selección.Buscar.Reemplazo.BorrarFormato

Eliminar espacios de arrastre de un párrafo

Con Búsqueda de selección

Texto = «^w^v»

…Reemplazo. Texto = «^v»

Adelante = Verdadero

Terminar con

Buscar selección Ejecutar Reemplazar:=wdReplaceAll

Eliminar espacios dobles

Con Búsqueda de selección

>.Texto = » » » «

Reemplazo. Texto = » » «

Terminar con

Buscar selección Ejecutar Reemplazar:=wdReplaceAll

Quitar doble pestaña

Con Búsqueda de selección

Texto = «^t^t»

.Sustitución.Texto = » ^t»

Terminar con

Buscar selección Ejecutar Reemplazar:=wdReplaceAll

Eliminar las teclas de doble entrada (párrafos en blanco)

Con Búsqueda de selección

Texto = «^v^v»

…Reemplazo. Texto = «^v»

Terminar con

Buscar selección Ejecutar Reemplazar:=wdReplaceAll

Subwoofer

La primera operación de búsqueda y reemplazo elimina los espacios de seguimiento. El texto de búsqueda es ^w^v, que busca cualquier carácter de espacio en blanco (^w) antes de la tecla Enter (^v). Estos caracteres de espacio en blanco (espacio, tabulador, etc.) se sustituyen por la tecla Intro, que elimina los espacios de arrastre.

La segunda búsqueda y reemplazo elimina los espacios dobles. pulse la barra espaciadora dos veces para el texto de búsqueda y pulse la barra espaciadora una sola vez para el texto de reemplazo.

La tercera búsqueda y reemplazo remueve doble tabulación. El ^t representa caracteres de tabulación en el cuadro de diálogo Buscar y reemplazar.

La última búsqueda y reemplazo elimina los párrafos vacíos. Los caracteres ^v representan la clave Enter, por lo que al reemplazar ^v^v con ^v se eliminan los párrafos vacíos.

Esta macro funciona bien, pero podría ser mejor. Por ejemplo, no maneja espacios triples o tabulaciones triples. Tendrías que ejecutar la macro una segunda vez para eso. Si usted proporciona el talento de programación, el código de la macro puede abordar esos problemas.

ADD YOUR COMMENT