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 .