Code tìm kiếm trên File Word (2 người xem)

[TrungChinhs]

Tôi sử dụng code này để tìm kiếm trên File Word. Khi không tìm thấy, máy tính đã có thông báo và Tôi muốn bắt lấy sự kiện này để làm tiếp việc gì đó. Vậy code phải viết như thế nào ? Thanhks!

Sub Macro1()
    With Selection.Find
        .Text = "zzz"
        .Wrap = wdFindAsk
        .Execute
    End With
End Sub

 

[Quang_Hải]

Tôi sử dụng code này để tìm kiếm trên File Word. Khi không tìm thấy, máy tính đã có thông báo và Tôi muốn bắt lấy sự kiện này để làm tiếp việc gì đó. Vậy code phải viết như thế nào ? Thanhks!

Sub Macro1()
    With Selection.Find
        .Text = "zzz"
        .Wrap = wdFindAsk
        .Execute
    End With
End Sub

Viết thử vầy nha

Sub FindMethod()
   With Selection
      .WholeStory
      If .Find.Execute("ABC", 1, 1) Then
         MsgBox "Found"
      Else
         MsgBox "Not Found"
      End If
   End With
End Sub

 

[TrungChinhs]

OK rồi. Cảm ơn em nhiều !