Propriedade FindReplace.FoundTextRange (Publisher)

Retorna um objeto TextRange que representa o texto encontrado ou o texto substituído de uma operação de localização. Somente leitura.

Sintaxe

expressão. FoundTextRange

Expressão Uma variável que representa um objeto FindReplace .

Valor de retorno

TextRange

Comentários

O objeto TextRange real, retornado pela propriedade FoundTextRange é determinado pelo valor da propriedade ReplaceScope. A tabela a seguir lista os valores correspondentes dessas propriedades (consulte também a enumeração PbReplaceScope ).

Quando ReplaceScope =	FoundTextRange =
pbReplaceScopeAll	Vazio
pbReplaceScopeNone	Localizar intervalo de texto
pbReplaceScopeOne	Substituir intervalo de texto

Quando ReplaceScope é definido como pbReplaceScopeAll, a propriedade FoundTextRange está vazia. Qualquer tentativa de acessá-lo retorna "Access Negado". A maneira de manipular o intervalo de texto do texto pesquisado é definir a propriedade ReplaceScope como pbReplaceScopeNone ou pbReplaceScopeOne e acessar o intervalo de texto do texto pesquisado ou substituído para cada ocorrência encontrada.

Exemplo

Quando ReplaceScope é definido como pbReplaceScopeNone, FoundTextRange retorna o intervalo de texto do texto pesquisado. O exemplo a seguir ilustra como os atributos de fonte do intervalo de texto de localização podem ser acessados quando ReplaceScope é definido como pbReplaceScopeNone.

With TextRange.Find 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 'The FoundTextRange contains the word "important". 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

Quando ReplaceScope é definido como pbReplaceScopeOne, o intervalo de texto do texto pesquisado é substituído. Portanto, a propriedade FoundTextRange retorna o intervalo de texto do texto de substituição. O exemplo a seguir demonstra como os atributos de fonte do intervalo de texto substituído podem ser acessados quando ReplaceScope é definido como pbReplaceScopeOne.

With Document.Find 
 .Clear 
 .FindText = "important" 
 .ReplaceWithText = "urgent" 
 .ReplaceScope = pbReplaceScopeOne 
 Do While .Execute = True 
 'The FoundTextRange contains the word "urgent". 
 If .FoundTextRange.Font.Bold = msoFalse Then 
 .FoundTextRange.Font.Bold = msoTrue 
 End If 
 Loop 
End With

Este exemplo substitui cada exemplo da palavra "bizarre" (bizarro) pela palavra "strange" (estranho) e aplica formatação em itálico e formatação em negrito ao texto substituído.

Dim objDocument As Document 
 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "bizarre" 
 .ReplaceWithText = "strange" 
 .ReplaceScope = pbReplaceScopeOne 
 Do While .Execute = True 
 .FoundTextRange.Font.Italic = msoTrue 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

Este exemplo localiza todas as ocorrências da palavra "important" (importante) e aplica formatação em itálico a elas.

Dim objTextRange As TextRange 
 
Set objTextRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
With objTextRange.Find 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 .FoundTextRange.Font.Italic = msoTrue 
 Loop 
End With

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.