Compartilhar via

Objeto FindReplace (Publisher)

Representa o critério para uma operação de localização. As propriedades e métodos do objeto FindReplace correspondem às opções da caixa de diálogo Localizar e substituir.

Comentários

Quando a propriedade ReplaceScope está definida como uma das constantes PbReplaceScopepbReplaceScopeOne ou pbReplaceScopeAll, a propriedade ReplaceWithText tem de ser definida para evitar que o texto seja substituído pelo valor predefinido de uma Cadeia vazia para essa propriedade.

Utilize a propriedade TextRange.Find para devolver um objeto FindReplace .

Defina a propriedade ReplaceScope para determinar a extensão da pesquisa.

Exemplo

O exemplo seguinte seleciona a ocorrência seguinte da palavra fábrica.

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

O exemplo seguinte substitui a primeira ocorrência do nome Visual Basic Scripting Edition por VBScript.

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

O exemplo a seguir ilustra o modo como os atributos de fonte de FoundTextRange podem ser acessados quando ReplaceScope é definido como pbReplaceScopeNone.

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

Métodos

Propriedades

Confira também

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.

  • Last updated on