Compartilhar via

Objeto FindReplace (Publisher)

  • Artigo

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 é definida como uma das constantes PbReplaceScopeOne ou pbReplaceScopeAll, a propriedade ReplaceWithText deve ser definida para evitar que o texto seja substituído pelo valor padrão de uma Cadeia de Caracteres vazia para essa propriedade.

Use a propriedade TextRange.Find para retornar um objeto FindReplace .

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

Exemplo

O exemplo a seguir seleciona a próxima ocorrência do word factory.

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

O exemplo a seguir 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.