Xin giúp đỡ lệnh Selection.Find..Execute bị treo máy

[nvt2022]

Trong văn vản word mình nếu không có từ sent mà chạy code thì sẽ bị treo máy

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "sent"
        .Replacement.text = "gui"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute
    End With
   Selection.Find.Execute Replace:=wdReplaceOne

Nếu tìm thấy "sent" thì .Execute sẽ chọn từ "sent" nhưng nếu không tìm thấy là bị treo máy, xin mọi người cách khắc phục !Cần phải dùng .Execute vì đằng sau còn mã code nếu không dùng .Execute thì code đằng sau không chạy được

 

[tuhocvba]

Chắc là chương trình có vấn đề ở đâu mà cần nhìn tổng thể mới đoán biết được. Chứ với code trên mình chạy trên máy mình đâu có treo gì đâu nhỉ.

Bạn cần đăng nhập để thấy hình ảnh