Compartir a través de

Método TextRange.Replace (PowerPoint)

  • Artículo

Busca un texto específico en un intervalo de texto, reemplaza el texto encontrado por una cadena especificada y devuelve un objeto TextRange que representa la primera aparición del texto encontrado. Devuelve Nothing si no se encuentra ninguna coincidencia.

Sintaxis

expresión. Replace (FindWhat, ReplaceWhat, 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.
ReplaceWhat Obligatorio String Texto por el que desea reemplazar el texto encontrado.
After Opcional Integer 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 Determina si se distingue entre mayúsculas y minúsculas.
WholeWords Opcional MsoTriState Determina si sólo se encuentran palabras completas.

Valor devuelto

TextRange

Comentarios

El valor del parámetro MatchCase puede ser una de estas constantes MsoTriState.

Constante Descripción
msoFalse Valor predeterminado. No distingue caracteres en mayúsculas de caracteres en minúsculas.
msoTrue Distingue mayúsculas de minúsculas.

El valor del parámetro WholeWords puede ser una de estas constantes MsoTriState.

Constante Descripción
msoFalse Valor predeterminado. No busca solo palabras completas.
msoTrue Busca solo palabras completas.

Ejemplo:

En este ejemplo se reemplazan las apariciones de palabra completa de "like" en todas las formas de la presentación activa con "NOT LIKE".

Sub ReplaceText()

    

    Dim oSld As Slide

    Dim oShp As Shape

    Dim oTxtRng As TextRange

    Dim oTmpRng As TextRange

     

    Set oSld = Application.ActivePresentation.Slides(1)

    

    For Each oShp In oSld.Shapes

        Set oTxtRng = oShp.TextFrame.TextRange

        Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
            Replacewhat:="NOT LIKE", WholeWords:=True)

        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)

            Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
                Replacewhat:="NOT LIKE", WholeWords:=True)
        Loop

    Next oShp



End Sub

Consulte también

Objeto TextRange

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.