Microsoft Word cuenta con un lenguaje de scripting de gran alcance llamada Visual Basic, que se puede utilizar para automatizar cualquier tarea en Word. Es posible crear scripts de Visual Basic , llamados macros, grabándolas o introduciendo manualmente en el IDE de Visual Basic ( entorno de desarrollo integrado) de Word.One de las tareas más comunes que los usuarios de Word que necesitas hacer es buscar y reemplazar texto. Mientras que la funcionalidad existente de Word para buscar y reemplazar es fácil de usar , Visual Basic puede hacer que sea aún más fácil. Especifique y ejecute la macro siguiente para aprender a buscar y reemplazar con Visual Basic . Crea el Programa

Creará un programa corto introduciéndolo directamente en el IDE de Visual Basic . Pero primero necesita un documento de muestra para probar el programa con . Palabra interior, abrir un nuevo documento y guardarlo con el nombre " vbReplace.doc . " Copiar un montón de texto de otro documento y pegarlo en vbReplace.doc .

Prensa alt -F11 para entrar en el IDE de Visual Basic y ampliar el proyecto vbReplace subárbol en el panel Proyecto. Expanda la carpeta Objetos de Microsoft Word y haga doble clic en el icono ThisDocument. Lugares de Visual Basic el cursor en la ventana de entrada de código . Escriba el siguiente código en la ventana.

Public Sub mac () myRange As Range

'hacerlo con corriente paragraphSet myRange = Selection.Paragraphs ( 1 ) . Rango
< p > Con myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = True , Reemplazar : = wdReplaceAll , _FindText : = " el " , ReplaceWith : = " la " , MatchWholeWord : = TrueEnd conend Sub
ejecutar el programa

Ahora que el programa se lleva a cabo , es el momento de probarlo . Volver al documento de Word pulsando Alt- F11 y coloque el cursor en cualquier punto típico , especialmente uno que tiene un montón de apariciones de la palabra " la ". Ejecute la macro presionando Alt- F8 para ir a la lista de macros, seleccione " mac" de la lista y pulsar Ejecutar. Si hubiera algún caso sin negrita de El en el párrafo donde ha colocado el cursor , que ahora están en negrita.
Modificar el programa

Tener una macro para hacer un solo tipo de búsqueda y reemplazo tiene alguna utilidad , pero ser capaz de adaptarse fácilmente a la macro para cubrir diferentes tipos de operaciones replace es un potenciador de la productividad real. Vuelva a introducir el IDE de Visual Basic (Alt -F11 ) y navegar de vuelta al código que ha introducido , mediante el panel Proyecto como se describe anteriormente .

Cambiar el Mac sub para que se active alguna de las " Las" palabras que en negrita cursiva s "la". Esta vez , se le restringe la operación de sustitución de trabajar sólo en una frase. Estas son las únicas líneas que necesita cambiar : . . .

Set myrange = Selection.Paragraphs ( 1 ) Rango se convierte Establecer myRange = Selection.Sentences ( 1 ) Font.Bold = False convierte Font.Bold = true . Replacement.Font.Bold = True se convierte Replacement.Font.italic = True.ReplaceWith : . = " la " se convierte en ReplaceWith : = "la "
ejecutar el programa revisado

Ahora vamos a probar el programa en la misma forma que probó la versión original. Volver al documento de Word y coloque el cursor dentro de una oración con algunos casos llamativos de " El ". Ejecute la macro revisado siguiendo los pasos que ha utilizado para ejecutar la versión original. Ver la negrita ", la" s se convierten en s "la". Note también que la sentencia actual se vio afectada en lugar de todo el párrafo .