Chào các bác. Hiện giờ mình đang sử dụng đoạn code này trong Word để tiến hành tìm kiếm và thay thế nhiều file text cùng lúc mà không phải mở từng file để thay. Code có hơi thủ công nhưng hoạt động không có vấn đề gì, nhưng nhược điểm của nó là chỉ có thể thay thế các từ đơn lẻ hay trên cùng một dòng, còn các trường hợp đặc biệt cần sử dụng Regex để thay thế thì đoạn code này chưa làm được. Mình có tham khảo về Regex trong VBA nhưng chưa biết nên "lắp" nó vào đâu để sử dụng. Mong các bác hướng dẫn và "sửa" lại đoạn code này giúp mình, mình xin cám ơn.
Mã:
Sub AReplaceStringInFile()
Dim objFSO As Object
Dim objFil As Object
Dim objFil2 As Object
Dim StrFileName As String
Dim StrFolder As String
Dim SstrAll As String
Set objFSO = CreateObject("scripting.filesystemobject")
StrFolder = "D:\Replace"
StrFileName = Dir(StrFolder & "*.txt")
Do While StrFileName <> vbNullString
Set objFil = objFSO.opentextfile(StrFolder & StrFileName)
strAll = objFil.readall
objFil.Close
Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName)
newFileText = Replace(strAll, "A", "B")
newFileText = Replace(newFileText, "C", "D")
objFil2.Write newFileText
objFil2.Close
StrFileName = Dir
Loop
End Sub