Abra MS Word y vaya a la IDE de Visual Basic ( entorno de desarrollo integrado ) presionando Alt- F11.
En la ventana de código , escriba el siguiente código de programa.
Public Sub mac () r As RangeDim w Como RangeDim i Como IntegerDim t As String
Options.DefaultHighlightColorIndex
Set r = Selection.Range
r.StartOf ( wdParagraph )
r.Expand = TrueWith r.Find.Text = "es" . Replacement.Text = "es" . Forward = True.Wrap = wdFindStop.Format = True.MatchCase = False.MatchWholeWord = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withr.Find.Execute Reemplazar : = wdReplaceAll
End Sub
Usted puede tener una idea de lo que este programa va a hacer al notar ciertas palabras clave en su interior : el párrafo , encontrar y selección, para ejemplo . El programa detecta y resalta todas las apariciones de una palabra que se especifique, en el actual párrafo
Aviso estas dos líneas en el código: . . Texto = "es" Replacement.Text = "es"
< . p> Estas líneas indican a Word qué buscar . En lugar de los "es" s , ingrese cualquier palabra o texto que desea buscar y resaltar .
Ejecución del programa de
Retorno a la palabra (alt -F11 ) , y entre unos pocos párrafos valor de texto. Los párrafos deben contener por lo menos un par de apariciones del término buscado anteriormente mencionado que hayas elegido .
Cuando haya terminado de introducir el texto , coloque el cursor dentro de cualquiera de los párrafos. Ejecute el programa : seleccione Alt- F8 para abrir la ventana de macro -replay . Seleccione la macro " mac" y pulse Ejecutar. Si Word encuentra todas las instancias de la palabra de búsqueda que ha especificado , en el párrafo que contiene el cursor , se hará hincapié en la palabra.
Entender que adaptarlo
< p > Escribiendo en un único script puede mejorar su flujo de trabajo un poco . Pero si usted entiende cómo funciona el guión , se empieza a mejorar el flujo de trabajo en gran medida , y con carácter perpetuo.
Volver al IDE de Visual Basic y mirar el código de programa dentro de la función mac. Observe cómo la función de mac llega al párrafo actual para hacer su operación de sustitución : se ve en el objeto Selection , que representa el texto seleccionado o el punto de inserción . Luego, con la representación interna de Word del documento, la secuencia de comandos " Leapfrog " en el punto de inserción al principio del párrafo que contiene el punto de inserción .
Este tipo de movimiento es posible gracias a una red de conexiones dentro de VBA para Word. La selección actual está vinculada a la palabra actual , la frase actual y el párrafo actual. En concreto , los enlaces Mac o Leapfrogs de la selección actual al comienzo del párrafo actual (Set r = Selection.Range y r.StartOf ( wdParagraph ) ) . En ese punto, r es sólo un punto de inserción , pero queremos que se refiere a todo el párrafo , por lo que ampliar con r.Expand wdParagraph . Si desea buscar sólo la sentencia actual en lugar del actual párrafo , reemplazar todas las instancias de wdParagraph en el código de programa con wdSentence .