如何实现WORD查找完成后不提示的代码

 

    With Selection.Find
        .Text = "高压开关"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop '查找结束，即停止，不显示提示
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    

 

    With Selection.Find
        .Text = "高压开关"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop '查找结束，即停止，不显示提示
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

 


 

posted on 2010-01-13 11:45  zqonline  阅读(311)  评论(0)  编辑  收藏  举报

导航