Propriedade FindReplace.MatchWidth (Publisher)

Define ou devolve um Valor booleano que representa se uma operação de pesquisa corresponderá à largura do caráter do texto pesquisado. Leitura/gravação.

Sintaxe

expressão. Largura de Correspondência

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

Valor de retorno

Booliano

Comentários

Essa propriedade pode não estar disponível, dependendo do idioma habilitado no seu sistema operacional. O valor padrão é False.

Devolve "Acesso negado" se um idioma do Leste Asiático não estiver ativado.

Exemplo

O exemplo seguinte localiza cada ocorrência da palavra "largura" no documento ativo e aplica formatação a negrito. A propriedade MatchWidth é definida como False para que completo ou caracteres de meia largura sejam encontrados. Por exemplo, esta pesquisa aplicará formatação com negrito à palavra "width" (caracteres de meia largura) e a palavra "w i t d h" (caracteres de largura total).

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = False 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

O exemplo seguinte localiza cada ocorrência da palavra "largura" no documento ativo e aplica formatação a negrito. A propriedade MatchWidth é definida como True para que serão encontrados completo ou caracteres de meia largura. Por exemplo, esta pesquisa aplicará formatação em negrito ao "largura". Ele não se aplica a formatação à palavra "w i t d h".

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = True 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = 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.