Word VBA教程:SetAllFuzzyOptions方法

激活所有与日文文本相关的模糊搜索选项。

expression.SetAllFuzzyOptions

expression  必需。该表达式返回一个 Find对象。

说明

本方法将下列属性设为 True:

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

VBA示例

本示例在选定区域内执行搜索之前,激活所有模糊选项。如果单词“baiorinbaiorinbaiorinbaiorinbaiorin”的格式为加粗,则选定整个段落并将其复制到“剪贴板”上。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号