Método Find.SetAllFuzzyOptions (Word)

Ativa as opções de pesquisa não especificadas associadas a texto japonês.

Sintaxe

expression. SetAllFuzzyOptions

expression é obrigatório. Uma variável que representa um objeto 'Find'.

Comentários

Este método define as seguintes propriedades como True :

MatchFuzzyAY	MatchFuzzyKanji
MatchFuzzyByte	MatchFuzzyOldKana
MatchFuzzyCase	MatchFuzzyProlongedSoundMark
MatchFuzzyDash	MatchFuzzyPunctuation
MatchFuzzyDZ	MatchFuzzySmallKana
MatchFuzzyHF	MatchFuzzySpace
MatchFuzzyHiragana	MatchFuzzyTC
MatchFuzzyIterationMark	MatchFuzzyZJ

Exemplo

Este exemplo ativa todas as opções não específicas antes de executar uma pesquisa no intervalo selecionado. Se a palavra "バイオリン" é formatado como negrito, todo o parágrafo será selecionado e copiado para a área de transferência.

With Selection.Find 
    .ClearFormatting 
    .SetAllFuzzyOptions 
    .Font.Bold = True 
    .Execute FindText:=" バイオリン", Format:=True, Forward:=True 
    If .Found = True Then 
        .Parent.Expand Unit:=wdParagraph 
        .Parent.Copy 
    End If 
End With

Confira também

Objeto Find

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.