Clase TextRange (PowerPoint VBA)

Contiene el texto adjunto a una forma, así como las propiedades y los métodos de manipulación del texto.

Los principales procedimientos de la clase TextRange son Copy, Delete y Select

Set

Para usar una variable de clase TextRange, primero debe ser instanciado, por ejemplo

Dim tre as TextRange
Set tre = ActiveWindow.Selection.TextRange

Los siguientes procedimientos se pueden usar para establecer variables de clase TextRange : Selection.TextRange, TextFrame.TextRange, Characters, Paste, Replace, PasteSpecial, Find, InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber, InsertSymbol, Lines, Paragraphs, Runs, Sentences, TrimText y Words

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures BoundHeight, BoundWidth, Font y ParagraphFormat

Métodos

Los principales métodos de la clase TextRange son

Copy - Copia el objeto especificado en el Portapapeles.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Copy

Delete - Elimina el objeto TextRange especificado.

ActiveWindow.Selection.TextRange.Delete

Select - Selecciona el objeto especificado.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Select

Otros Métodos

Characters - Devuelve un objeto TextRange que representa el subconjunto especificado de caracteres de texto. Para obtener información sobre cómo contar o crear bucles en los caracteres de un intervalo de texto, vea el objeto TextRange.

Dim treCharacters As TextRange
Set treCharacters = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Characters()

Find - 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.

Dim strFindWhat As String: strFindWhat = 
Dim treFind As TextRange
Set treFind = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Find(FindWhat:=strFindWhat)

InsertDateTime - Inserta la fecha y hora en el intervalo de texto especificado. Devuelve un objeto TextRange que representa el texto insertado.

Dim treInsertDateTime As TextRange
Set treInsertDateTime = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.InsertDateTime(DateTimeFormat:=ppDateTimeddddMMMMddyyyy)

InsertSymbol - Devuelve un objeto TextRange que representa un símbolo insertado en el intervalo de texto especificado.

Dim strFontName As String: strFontName = 
Dim lngCharNumber As Long: lngCharNumber = 
Dim treInsertSymbol As TextRange
Set treInsertSymbol = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.InsertSymbol(FontName:=strFontName, CharNumber:=lngCharNumber)

Lines - Devuelve un objeto TextRange que representa el subconjunto especificado de líneas de texto. Para obtener información sobre cómo contar o crear bucles en las líneas de un intervalo de texto, vea el objeto TextRange.

Dim treLines As TextRange
Set treLines = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Lines()

Paragraphs - Devuelve un objeto TextRange que representa el subconjunto especificado de párrafos de texto.

Dim treParagraphs As TextRange
Set treParagraphs = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Paragraphs()

PasteSpecial - Reemplaza el intervalo de texto con el contenido del Portapapeles en el formato especificado.

Dim trePasteSpecial As TextRange
Set trePasteSpecial = ActiveWindow.Selection.TextRange.PasteSpecial()

Replace - 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.

Dim strFindWhat As String: strFindWhat = 
Dim strReplaceWhat As String: strReplaceWhat = 
Dim treReplaced As TextRange
Set treReplaced = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Replace(FindWhat:=strFindWhat, ReplaceWhat:=strReplaceWhat)

RotatedBounds - Devuelve las coordenadas de los vértices del cuadro de límite de texto en el intervalo de texto especificado.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.RotatedBounds X1:=, Y1:=, X2:=, Y2:=, X3:=, Y3:=, x4:=, y4:=

Runs - Devuelve un objeto TextRange que representa el subconjunto especificado de series de texto. Un segmento de texto consta de un rango de caracteres que comparten los mismos atributos de fuente.

Dim treRuns As TextRange
Set treRuns = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Runs()

Sentences - Devuelve un objeto TextRange que representa el subconjunto especificado de oraciones de texto.

Dim treSentences As TextRange
Set treSentences = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Sentences()

Words - Devuelve un objeto TextRange que representa el subconjunto especificado de palabras de texto.

Dim treWords As TextRange
Set treWords = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Words()

Propiedades

ActionSettings Devuelve un objeto ActionSettings que contiene información acerca de qué acción se produce cuando el usuario hace clic o mueve el mouse sobre el intervalo de texto o forma especificado durante una presentación con diapositivas. Solo lectura.

Dim assActionSettings As ActionSettings
Set assActionSettings = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.ActionSettings

BoundLeft Devuelve la distancia (en puntos) desde el borde izquierdo del cuadro de límite de texto para el marco de texto especificado hasta el borde izquierdo de la diapositiva. Solo lectura.

Dim sngBoundLeft As Single
sngBoundLeft = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.BoundLeft

BoundTop Devuelve la distancia (en puntos) desde el borde superior del cuadro de límite de texto para el marco de texto especificado hasta el borde superior de la diapositiva. Solo lectura.

Dim sngBoundTop As Single
sngBoundTop = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.BoundTop

Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.TextRange.Count

IndentLevel Devuelve o establece el nivel de sangría del texto especificado como un entero de 1 a 5, donde 1 indica un párrafo de primer nivel sin sangría. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.IndentLevel = 2

LanguageID Devuelve o establece el idioma del intervalo de texto especificado. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.LanguageID = msoLanguageIDMixed

Length Devuelve la longitud del intervalo de texto especificado, en caracteres. Solo lectura.

Dim lngLength As Long
lngLength = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Length

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.TextRange.Parent

Start Devuelve la posición del primer carácter en el intervalo de texto especificado con respecto al primer carácter de la forma que contiene el texto. Solo lectura.

Dim lngStart As Long
lngStart = ActiveWindow.Selection.TextRange.Start

Text Devuelve o establece una cadena que representa el texto contenido en el objeto especificado. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text =