Método TextRange.Find (PowerPoint)
Busca el texto especificado en un intervalo de texto y devuelve un objeto TextRange que representa el primer intervalo de texto donde se encuentra el texto. Devuelve Nothing si no se encuentra ninguna coincidencia.
Sintaxis
expresión. Buscar (FindWhat, After, MatchCase, WholeWords)
Expresión Variable que representa un objeto TextRange .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| FindWhat | Obligatorio | String | Texto que se desea buscar. |
| After | Opcional | Long | Posición del carácter (en el intervalo de texto especificado) tras el cual desea buscar la próxima aparición de FindWhat. Por ejemplo, si desea buscar a partir del quinto carácter del intervalo de texto, especifique el valor 4 para After. Si se omite este argumento, el primer carácter del intervalo de texto se utilizará como punto de partida para la búsqueda. |
| MatchCase | Opcional | MsoTriState | msoTrue para que la búsqueda distinga entre mayúsculas y minúsculas. |
| WholeWords | Opcional | MsoTriState | msoTrue para que la búsqueda buscar sólo palabras completas y no partes de palabras mayores. |
Valor devuelto
TextRange
Ejemplo:
En este ejemplo se buscan todos los casos de "CompanyX" en la presentación activa y se les aplica el formato de negrita.
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
Set foundText = txtRng.Find(FindWhat:="CompanyX")
Do While Not (foundText Is Nothing)
With foundText
.Font.Bold = True
Set foundText = _
txtRng.Find(FindWhat:="CompanyX", _
After:=.Start + .Length - 1)
End With
Loop
End If
Next
Next
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.