Classe TextRange (PowerPoint VBA)

Contém o texto que está anexado a uma forma e as propriedades e os métodos para manipulação do texto.

Os principais procedimentos da classe TextRange são Copy, Delete e Select

Set

Para usar uma variável de classe TextRange, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo TextRange: Selection.TextRange, TextFrame.TextRange, Characters, Paste, Replace, PasteSpecial, Find, InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber, InsertSymbol, Lines, Paragraphs, Runs, Sentences, TrimText e Words

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Format with its procedures BoundHeight, BoundWidth, Font e ParagraphFormat

Métodos

Estes são os principais métodos da classe TextRange

Copy - Copia o objeto especificado para a Área de transferência.

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

Delete - Exclui o objeto TextRange especificado.

ActiveWindow.Selection.TextRange.Delete

Select - Seleciona o objeto especificado.

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

Estes são os principais métodos da classe

Characters - Retorna um objeto TextRange que representa o subconjunto especificado de caracteres de texto. Para obter informações sobre como contar ou fazer loop pelos caracteres de um intervalo de texto, consulte o objeto TextRange.

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

Find - Localiza o texto especificado em um intervalo de texto e retorna um objeto TextRange que representa o primeiro intervalo de texto onde o texto é encontrado. Retorna Nothing se nenhuma correspondência for encontrada.

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

InsertDateTime - Insere a data e hora no intervalo de texto especificado. Retorna um objeto TextRange que representa o texto inserido.

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

InsertSymbol - Retorna um objeto TextRange que representa um símbolo inserido no 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 - Retorna um objeto TextRange que representa o subconjunto especificado de linhas de texto. Para obter informações sobre contagem ou loop pelas linhas de um intervalo de texto, consulte o objeto TextRange.

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

Paragraphs - Retorna um objeto TextRange que representa o subconjunto especificado de parágrafos de texto.

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

PasteSpecial - Substitui o intervalo de texto com o conteúdo da área de transferência no formato especificado.

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

Replace - Localiza o texto específico em um intervalo de texto, substitui o texto localizado com uma cadeia de caracteres especificada e retorna um objeto TextRange que representa a primeira ocorrência do texto localizado. Retorna Nothing se nenhuma correspondência for encontrada.

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 - Retorna as coordenadas dos vértices da caixa de contorno de texto para o intervalo de texto especificado.

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

Runs - Retorna um objeto TextRange que representa o subconjunto especificado de sequências de texto. Um fluxo de texto consiste em um intervalo de caracteres que compartilham os mesmos atributos de fonte.

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

Sentences - Retorna um objeto TextRange que representa o subconjunto especificado de sentenças de texto.

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

Words - Retorna um objeto TextRange que representa o subconjunto especificado de palavras de texto.

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

Propriedades

ActionSettings Retorna um objeto ActionSettings que contém informações sobre a ação que ocorre quando o usuário clica ou move o mouse sobre o intervalo de texto ou forma especificado durante uma apresentação de slides. Somente leitura.

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

BoundLeft Retorna a distância em pontos da borda esquerda da caixa delimitadora de texto do quadro de texto especificado até a borda esquerda do slide. Somente leitura.

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

BoundTop Retorna a distância em pontos da parte superior da caixa delimitadora de texto do quadro de texto especificado até a parte superior do slide. Somente leitura.

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

Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

IndentLevel Retorna ou define o nível de recuo para o texto especificado como um inteiro de 1 a 5, onde 1 indica um parágrafo de primeiro nível sem recuo. Leitura/gravação.

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

LanguageID Retorna ou define o idioma do intervalo de texto especificado. Leitura/gravação.

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

Length Retorna o tamanho do intervalo de texto especificado, em caracteres. Somente leitura.

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

Parent Retorna o objeto parente para o objeto especificado.

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

Start Retorna a posição do primeiro caractere no intervalo de texto especificado em relação ao primeiro caractere na forma que contém o texto. Somente leitura.

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

Text Retorna ou define um String que representa o texto contido no objeto especificado. Leitura/gravação.

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