Thay thế hàng loạt từ trong nhiều file word và excel (1 người xem)

[truongan2411]

Nhờ các anh chị giúp đỡ,
Em có 1 thư mục, trong đó có nhiều file word và excel. Trong các file này có các chuỗi từ giống nhau (Ví dụ <<TEN_CONG_TY>>). Em cần 1 file xlsm có chức năng thay thế chuỗi như file đính kèm (em sưu tầm trên diễn đàn).
Vấn đề của em là:
1. Chỉ áp dụng hoặc cho word hoặc cho excel, em nhờ chỉnh code lại để 1 file xlsm cho vừa word vừa cho cả excel trong 1 lần chạy code.
2. File xlsm replace các file word: nếu chuỗi <<TEN_CONG_TY>> không có trong file excel cần thay thế thì excel thông báo như hình 1. Em không biết skip nó bằng code vba như thế nào (đã thử Application.DisplayAlerts = False nhưng không thành công).
Nhờ các anh chị giúp đỡ. Em chân thành cảm ơn./.

 

[truongan2411]

Em nhầm, Vấn đề số 2 là đối với File replace Excel.

 

[truongan2411]

Kính nhờ các anh chị rành về VBA giúp đỡ. Thanks!